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Joven o viejo, seguro que te han divertido las aventuras 
de estos viejos conocidos. 

Esta es tu oportunidad para convertirte en el personaje 
dei Correcaminos, en un juego todo accion y emocidn. 
Corre a traves de los desiertos, las autopistas o el canon 
del Colorado, siguiendo el rastro deI alpiste, que tanto 
te gusta. Pero... jojo con el Coyote! Seguro que utilizard 
todos sus sucios trucos para capturarte y poder comer su 
plato favorito... “Correcaminos con patatas Ritas. ” 
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ElXfT OMAifl 


H emos seguido un largo camino juntos a lo largo de 
100 numeros, cast 4.000 paginas dedicadas a toda 
la gama de productos Amstrad. Durante todo este 
tiempo nos hemos esforzado por seguir de cerca todos y 
cada uno de los modelos de la marca, intentando dar al 
lector, semana a semana, una panoramica informativa de 
todos los aspectos, a nuestro parecer, relevantes. 

Esta preocupacion se ha traducido, como nuestros 
lectores saben muy bien, en un aumento considerable en el 
numero de paginas de la revista a partir del numero 65, que 
sin duda alguna marcd un hito en la historia de AMSTRAD 
Semanal. 

El numero 100, por lo significativo y rendondo, parece 
ser un buen punto de arranque para iniciar una nueva 
etapa de renovacion y cambio hacia mejor. 

Para ello, hemos contado con muchos argumentos de 
peso, entre ellos el nuevo enfoque que parece caracterizar la 
politico de Amstrad: un decantarse hacia los ordenadores 
personates, sin prisa pero sin pausa, y, lo que es mas 
importante, sin abandonar ningun producto en el camino. 

Para responder a este cambio de situacion, y mantener a 
la vez un clima informativo completo y atractivo, creemos 
que la mejor solucion es aumentar considerablemente el 
numero de paginas de la revista y cambiar su periodicidad, 
esto es, pasar a ser mensuales. 

Estamos firmemente convencidos de que este nuevo 
enfoque nos va a permitir abordar todos los temas . 
relacionados con Amstrad al nivel de profundidad 
suficiente, ofreciendo unas paginas en las que cada lector 
encuentre una gran cantidad de articulos y secciones de 
inter es, tenga el ordenador que tenga: CPC, PCW o PC 
Tambien sabemos por anticipado que esta nueva idea sera 
tan bienvenida como de costumbre por parte de nuestros 
lectores, que a lo largo de 100 numeros nos han apoyado y 
sostenido sin descanso por el simple hecho de leernos, 
aconsejarnos y criticarnos. Esperamos que esta actitud se 
mantenga a partir del numero 1 de AMSTRAD Personal, hijo 
predilecto y sucesor, dentro de una h'nea de continuidad, de 
AMSTRAD Semanal, y que estara en su quiosco a primeros 
del mes de octubre. 


AMSTRAD Semanal no se hace 
necesariamente solidaria de las opiniones 
vertidas por sus colaboradores en los articulos 
firmados. Reservados todos los derechos. 
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Novedades 
para el otono 


presenta una, aparentemente, 
situation en la que un americano 
y un ruso deben unir sus esfuerzos 
para salvar al mundo. Baooum 
tiene un tema bastante real. Se 
situa en la I Guerra Mundial y 
pueden jugar hasta tres personas. 
Hay que manejar tanques, utilizar 
la artilleria y evitar las 
alambradas de minas. Tentation 
nos transporta a un tiempo en el 
que los combates se realizan en 
las naves situadas en el espacio. 
Casanova, como su nombre nos 
sugiere, nos situa en la Venecia de 
este personaje. Tenemos que subir 
a los balcones de las damas por 
medio, no de cuerdas como seria 
lo normal, sino de espaguettis con 
tomate, de manera que lo normal 
es escurrirse y acabar contra el 
suelo o en un canal. Es un juego 
realmente comico. En Little Devil 
el protagonista es un pequeno 
diablillo al que tenemos que 


C omo todos los anos por estas 
fechas, la mayoria de las 
casas de software preparan nuevos 
juegos para Amstrad, todas con la 
intention de sacarlos al mercado 
entre finales de septiembre y 
principios de octubre. 

Zafiro va a distribuir un juego 
de la casa inglesa Domar, llamado 
The Living Day Light, basado en 
la ultima pelicula de James Bond, 
que fue estrenada en Espana en el 
mes de julio. Piranha distribuira 
Mister Weems y los vampiros, 
una tetrica aventura llena de 
laberintos y sarcofagos. Elite 
prepara un paquete de tres juegos, 
que incluye Airwolf 2 (simulador 
de vuelo de un helicoptero), 3DC 
y Great Gurianos. 

Dinamic sacara, a primeros de 
octubre, un juego de graficos 
conversacionales, titulado 


Megacorps, Sera el primero que se 
venda con una nueva marca 
comercial, llamada Dinamic AD 
Serie Aventuras, en la que 
Dinamic incluira todos sus juegos 
de aventuras, como en este caso, 
mientras que el resto de sus 
juegos, arcades, deportivos, etc., 
apareceran con el anagrama 
habitual de esta casa. En cuanto 
al nuevo juego, se trata de una 
aventura dividida en dos partes. 

En la primera tendremos que 
atravesar bosques y lagos, luchar 
contra enemigos hasta que 
lleguemos a una ciudad. La 
segunda parte se desarrolla dentro 
de la ciudad. 

Opera Soft, ademas de la 
version del Livingston, supongo 
para PC, prepara el lanzamiento 
de Goody, un entretenido y 
simpatico juego en el que nuestra 
mision es atracar el Banco de 
Espana. Pero antes hay que 
encontrar y comprar doce 
herramientas que, para darle 
mayor emotion, cambian de lugar 


juego. Bang! es un juego con mas 
de 300 K en graficos, que hacen 
necesarias seis cargas y un scroll 
pixel a pixel. Se desarrolla en el 
ti'pico ambiente del Oeste, con 
indios, pistoleros y estrechos 
caminos con sus respectivas 
emboscadas. Proyecto Antares 


cada vez que se empieza a jugar y 
sin ellas es imposible alcanzar 
nuestro objetivo. 

La casa que parece tener mas 
juegos en proyecto para esta 
temporada es Topo y todos ellos 
seran distribuidos por Erbe. 
Stardust reproduce un combate 
galactico en el que tenemos que 
manejar siete naves para llegar a 
la base en la segunda parte del 
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Livingstone, supongo, 

primer juego para PC hecho en Espana 



ayudar a cometer todas las 
travesuras que se nos ocurran 
para que no acabe convertido 
en un angel, algo verdaderamente 
catastrofico para un diablo 
como el. 

Como se puede apreciar los 
temas son realmente variados, van 
de lo comico a lo tetrico y de las 
aventuras en el futuro a las 
guerras del pasado. Sin embargo, 
continua habiendo una mayorla 
de arcades sobre los demas tipos 
de juegos. 


O pera Soft esta terminando la 
version para PCs de su 
mayor exito: Livingston, supongo, 
que esperan terminar y sacar al 
mercado hacia finales de 
septiembre o principios de 
octubre. 

El juego esta realizado con 
CGA, una de las opciones del PC, 
en el modo que da la posibilidad 
de tener cuatro colores en 
pantalla, aunque se esta estudiando, 
para mas adelante, utilizar el 
modo CGA de 16 colores. 


Por otra parte, parece que va ha 
convertirse en uno de los juegos 
mas versionados de la historia del 
software. Ademas de las de Spectrum, 
Amstrad y MSX, ya existentes, 
se esta trabajando en las de 
Commodore y Atari. En Gran 
Bretana se ha creado ya la version 
para el BBC Micro. Y, dentro de 
muy poco tiempo, los poseedores 
de un PC podran disfrutar de este 
juego, del que se espera, por lo 
menos, tanta calidad como en las 
versiones anteriores. 



Nubsidiaria de Compaq en Espana 


C ompaq Computer Corporation 
ha creado en Espana una 
subsidiaria, Compaq Computer, 

S. A., que se encargara de 
comercializar la linea de 
ordenadores Compaq en nuestro 
pais, todos ellos compatibles con 
los IBM PC. 

Hasta ahora, los productos de 
esta compania se distribuian desde 
la sede en Alemania, a traves de 
cinco distribuidores oficiales en 
las principals ciudades 
espanolas. 

La razon de este cambio es, 
segun Bruno Jeanroy, director de 
Ventas y Marketing de Compaq 
Computer, el rapido crecimiento 
de la demanda de ordenadores 
personales en Espana. Anadio que 
«el establecimiento de una 
subsidiaria espanola nos permitira 
satisfacer mejor las necesidades de 
los usuarios, por medio de un 
servicio integral de formation, 
asistencia y apoyo tecnico, para el 
creciente numero de distribuidores 


oficiales que venden nuestros 
productos en Espana». 

Los ordenadores Compaq se 
venden en 40 paises, a traves de 
una red internacional de 3.000 
distribuidores y 
una serie de 
companias 
subsidiarias (la 
nueva subsidiaria 
espanola es la 
sexta de Europa), 
con las que 
Compaq ha hecho 
un esfuerzo de 
inversiones. En 
palabras de 
Eckhard Pfeiffer, 
vicepresidente de 
Operaciones 
Internacionales 
de Compaq, 

«continuamos 
incrementando el 
nivel de asistencia 
que ofrecemos a 
nuestros mercados 


internacionales, por medio del 
incremento de nuestras inversiones 
en varios paises, en fabrication, 
compras y apoyo a nuestras 
subsidiarias». 
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Sistema integral 
de gestion 

os programadores que forman 


Hit Pak 

Z afi Chip ha sacado a la venta un 
paquete, Hit Pak, que incluye 
siete buenos juegos a un precio 
bastante atractivo: 1.750 pesetas 
la cinta y 2.750 el disco, en su 
version para Amstrad. 

Los juegos que van en este 
paquete son: Scooby Doo, 
Antiriad, 1942, Duet, Split 
Personalities, Jet Set Willy II y 
Fighting Warriors, todos ellos 
recientes y algunos, como el 
Antiriad, de una calidad 
indiscutible. 


Oracle Profesional: 
mas potencia 
relacional 
para ordenadores 
con 80286/80386 

O racle PC es un sistema de 
Gestion de Base de Datos 
Relacional para ordenadores 
personales, desarrollado por 
Oracle Corporation, del que se ha 
anunciado la creacion de la 
version 5, llamada Oracle 
Profesional. 

Entre las caracteristicas mas 
interesantes de esta nueva version 
es la posibilidad de direccionar 
mas de 640 K de memoria RAM y 
corre bajo PC-DOS de IBM, y 
MS-DOS de Microsoft. Usando el 
modo protegido de los 
procesadores 80286/80386, el 


programa direcciona 1 MB en la 
memoria extendida RAM, dejando 
512 Kbytes de memoria basica 
para que el usuario desarrolle 
y ejecute aplicaciones propias. 

Segun Rob Rietveld, 
responsable de producto en el 
Area de Microordenadores de 
Oracle Europa, «el uso de 
memoria extendida por Oracle 
Profesional permitira el desarrollo 
de aplicaciones para grandes 
ordenadores en un PC». 

Esta nueva version del sistema 
de Gestion de Base de Datos 
Relacional (SGBDR) para PC, si 
se utiliza en el entorno SQL*Star, 
tambien creado por Oracle 
Corporation, permite al usuario 
de un PC integrarlo en red. Esta 
caracteristica es especialmente util 
para las empresas. La razon de 
esta posibilidad se encuentra en 
uno de los elementos del 
SQL*Star, el SQL*NET, que 
permite conexiones independientes 
de la red entre ordenadores 
diferentes, utilizando el interface 
Decnet de Digital como soporte 
de protocolos asincronicos y 
conexion coaxial o remota 3270. 

Oracle Profesional incluye las 
mismas herramientas que Oracle 
para minis y grandes ordenadores, 
y ofrece importantes mejoras en el 
rendimiento de las funciones 
relacionales mas complejas, como 
las combinaciones multiples de 
tablas y operaciones que 
impliquen clasificacion. Sin 
embargo, y gracias al 
SQL*Forms, otro de los 
elementos del entorno SQL*Star, 
los usuarios de PCs, que no sean 
informaticos, pueden realizar 
aplicaciones de forma sencilla y 
rapida, a traves de menus muy 
sencillos y herramientas muy 
potentes en el diseno de pantallas. 


Seresco Asturiana, S. A., deben 
pensar, de manera muy Iogica, 
por otra parte, que es mas 
apropiado tener en una empresa 
los programas necesarios para su 
gestion de una manera integrada, 
que tener que ir comprandolos de 
manera suelta cada uno de ellos. 
Su paquete Iris, destinado al PC y 
sus compatibles, sigue este 
razonamiento y cuenta con tres 
subsistemas, dedicados cada uno 
de ellos a estas funciones: 

—Contable. Consta de los 
modulos de contabilidad general, 
presupuestaria y control de 
cuentas de terceros. 

—Almaceii. Esta formado por 
los modulos de compras y control 
de stocks. 

—Comercial. Regula la 
facturacion y los pedidos. 

El paquete Iris esta garantizado 
siempre en su funcionamiento y la 
companla creadora cuenta con un 
equipo de soporte de clientes para 
la puesta en marcha de su 
producto. Tambien poseen un Hot 
Line telefonico de respuesta 
a cualquier pregunta o cuestion, 
a cerca del Iris. 

Para mas informacion llamar 
al telefono de Asturias (985) 

23 74 31. 
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En un tiempo en que el honor era reverenciado, en el que la gracia y la belleza eran virtudes, una.raza 
especial de guerreros se aparlaron de todo para dedicar sus vidas a hacer del combate una forma 
de arte y una disciplina de la mente que se convirtio en su religion. Conseguir tal grado de perfeccion 
requeria una destreza y autodisciplina tal, que solo unos pocos elegidos conseguian el titulo de 
“Senor de la Guerra”. KENDO, KARATE y finalmcntc SAMURAI eran las pruebas 
superar antes que tal honor tuese concedido. 
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utilidades 


Cargador Universal 

Por Daniel Calvo 


Los errores, al teclear un programa, son tan 
frecuentes como molestos, especialmente si estan 
escritos en Codigo Maquina. Como solucion 
proponemos este Cargador Universal, con el que 
eualquiera puede tener los programas publicados en 
nuestra revista en forma de datas, sin que se 
produzcan los desagradables errores. 


U no de los mayores 
problemas a la hora de 
copiar un programa de una 
revista, son los errores que 
en este paso se producen. Si 
encima anadimos que el programa 
esta escrito en Codigo Maquina, 
estos errores se multiplican por 
10, la mayoria inexplicables para 
los no expertos en el tema. 

Para evitar en lo posible que 
estos errores y cuelgues del 
ordenador, sean causa de 
suicidios, os presentamos este 
programa, con el que se reducira 
el numero de errores a cotas 
minimas. 

A partir de ahora, todos los 
programas en Codigo Maquina 
publicados en la revista se 
ajustaran al formato de este 
programa, el cual es el siguiente: 
primero, la direccion inicial de 
carga del programa, seguido del 
programa dividido en lineas de 24 
caracteres, que no hace falta 
separarlos ni con comas ni con 
espacios, y su correspondiente 
suma de control, que es la suma 
de los bytes de la linea. 

Una vez que tengamos el 
programa que queremos copiar en 
nuestras manos, deberemos 
ejecutar el cargador que os 
presentamos y elegir la primera 
opcion. A la pregunta de 
Direccion de Comienzo, 
deberemos introducir el valor que 
figurara en la cabecera del listado 
del programa a copiar. 

Una ves superado este requisite. 
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PROGRAMA EJiMPLO 


DIRECCION DE C0RIENZD..A000 

1 2185A11140003E2CCDA1BCCD,4F9 

2 6CBB212CA10609CDEDA02JB5,524 

3 AI060FCDEBA03E0AC05ABB3E,S7B 

4 CDCB5ABB215BA10607CI>EDA0,573 

5 3A97A1F5E60&FE00CAF5A0FE|7AE 

6 02CAOOA1FE04CA0BA1FE06CA,583 

7 I6A1FIEAOtFE03CA21A13EQA,5B2 

8 CD5ABB3E0DCB5ABB2162A106,539 

9 0BCDEBAO3A95A1F5D&OA380F,5F1 

10 3E3iCB5ABBFID60AC630CB5A,63F 

11 8E1B06F1C630CD5AB63EOACD,5B7 
32 5ABB3E0DCDSABB21BBA1O6OC,4B3 

13 CDEDA02A98A1CBA4A02179A1,709 

14 06OCCDEDA02A9AA137111027,450 

15 233E2F3CEB5230FBCDE2A011,596 
IB EBO33CEB5230FBCDE2AO1164,655 

17 O03CED5230FB£D£2A0U0AO0,510 

18 3CEB5230FBCBE2AO85CDE2AO, 7C9 


19 3E0ACD5ABB3E0DC35ABBCB5A,574 

20 BB3E2F2O01231923C97ECB5A S 416 

21 BB2310F9C92135A10G06CDED,5BD 

22 AOC34AA0213BA1O&OBCDEDAO,5B2 

23 C34AA02143A10609CDEDA0C3,5DE 

24 4AA02i4CAlO6O6CDEBA0C34A,56B 

25 A02152A10609CDEDAOC352A0,5D2 
24 4E4F4D425245203A20424153,313 

27 49432042494E4152494F2O50,320 

28 414E54414C4C412041534349,33B 

29 492050524F54454749444F54,34A 

30 49504F203A204E2E424C4F51,30C 

31 5545203A204C4F4E2E444154,304 

32 4F53203A2044495245434349,30F 

33 4F4E203A2O00O00O00000000,117 

34 000000600000000000000000,000 

35 000000000000000900000900,000 
30 000000000000000000000900,000 

37 090000000000000000000000,000 

38 000000000000000000900000,000 


nos encontraremos en una 
pantalla con tres ventanas y a la 
vez, una de ellas dividida en dos 
por una raya verde, y el niimero 
de la linea de texto en la que nos 
encontramos Con esto el 
programa nos quiere indicar que 
esta a la espera de datos. 

Si al copiar alguna de las lineas 
del listado la longitud de la misma 
es inferior o superior a los 24 
caracteres, el programa nos 
obsequiara con un mensaje de 
error, ignorando la linea y 
obligandonos a volver a 
introducirla. 

Un error comun es la insercion 
de caracteres no hexadecimales 
como si lo fuesen, como por 
ejemplo, una O por un 0. Este 
error tambien es detectado por el 
programa, y nos mostrara el 
digito en el que hemos cometido 
el error en video inverso, con lo 
que nos indica que ese caracter no 
es valido, y espera a que 


CARGADOR UNIVERSAL 


10 REN CAR6ADGR UNIVERSAL 
20 REN S/6/87 
30 REN DANIEL CALV0 

49 NEH0RY S2FFF:DEFINT A-Z:SPEED VR 
ITE 1 

50 GGSUI 1150:REN CGDI60 NAQUINA 

60 NODE UINK 9,0:M 1,26:INK 2,14 
:INK 3,18:B0RDER O 
70 LOCATE 12,5:PRINT *1.- INTRODUCI 
R* 

80 LOCATE 12,7:PRINT '2.- LISTAD0S' 
90 LOCATE 12,9:PRINT '3.- SALVAR Bi 
NARI0* 

100 LOCATE 12,liiPRINT *4.- SALVAR 
BASIC' 

110 LOCATE 12,I3:PRINT *5.- CARBAR 
BINARIO* 

120 LOCATE 12,15:PRINT '6.- CARBAR 
BASIC' 

130 LOCATE 14,20:PRINT 'ELIBE 0PCI0 
N* 

140 K*=INKEY*:IF K*=" THEN 140 ELS 
E IF ASC(K*)<49 OR ASC(K*)>54 THEN 
140 

ISO ON VAL(Kt) SQSUB 170,440,610,66 

0,900,950 

160 B0T0 60 

170 IF NQVOO THEN 200 

ISO NODE l;INPUT '0IRECCI0N DE CONI 

ENZ0 ',BEGIN 

190 IF BEGIN<-32768 OR BEGIN>32767 
THEN ISO ELSE NOV=6500O:LGN=O:AUT=1 

200 NODE UVINDOV 11,1,40,1,1: PAPER 
ti,i:PEN #i,0:CLS tl:VIN00V 1,40,2 


,24:UIND0W #2,1,40,25,25:PAPER 12,2 
:PEN #2,0:CLS 12 

210 PRINT tl,TAB(10)'DAT0S'TAB(32)' 
SUNA' 

220 PLOT 448,16,3:0RAWR 0,366:L=i 
230 LOCATE 1,L:PRINT USING 'ill'lAU 
Tj:INPUT ' ',A*:IF A*=" THEN RETUR 
N ELSE A*=UPPER*<A*):LOCATE 5,L:PRI 
NT A* 

240 CHECKSUN=0 

250 IF LEN(A*)<>24 THEN PRINT 12,TA 
B(I2)'L0NSITUD ERR0NEA"JCHR*(7):L0C 
ATE 1,L:PRINT SPACE*(40):PLQT 448,1 
6,3:DRAVR 0,366:F0R T=1 TO 500:NEXT 
I PRINT «2:G0T0 230 
260 FOR X=1 TO 24:P*=NID*<A*,X,1) 
270 IF (P4<'0* OR P4>*9') AND (Pt<* 
A' OR P*>'F') THEN 60SUB 410 
280 IF (X NOD 2)=0 THEN CHECKSUN=CH 
ECKSUN+VAL(*&’+HIDG(A*,X-1,2)) 

290 NEXT 

300 LOCATE 32,L:INPUT *>',CHECK4:IF 
CHECK**" THEN CHECK*='0* ELSE CHE 
CK*=UPPER$<CHECK*):LOCATE 33,L:PRIN 
T CHECK* 

310 FOR X=1 TO LEN < CHECK* >:P*=N10*( 
CHECK*,X,l) 

320 IF iP*<'0* OR P*>'9') ANO IP*<' 
A' OR P*>*F*) THEN PRINT I2,TAB(7)' 
CARACTERES NO HEXADECiNALES'J CHR*(7 
):FGR T=1 TO 500:NEXT:LOCATE 32,LIP 
RINT SPACE*(8);PRINT I2160T0 300 
330 NEXT 

340 CHECK=VAL( 'S'+CHECK*): IF CHECK< 


>CHECKSUN THEN PRINT I2,TAB(I3)'SUN 
A INC0RRECTA'J CHR*{7):FOR T=1 TO 50 

o:next:lqcate i,l:print space*(40); 

PLOT 448,16,3:DRAVR 0,366:PRINT 12: 
GOTO 230 

350 FOR X=1 TO 24 STEP 2 
360 BYTE=VAL("S'+NID*(A*,X,2)) 

370 POKE NOW,BYTE:N0«=N0W+1: L0N=LDN 
+1 

380 NEXT 
390 AUT=AUT+1 

400 L=L+i:IF L-24 THEN CLS:G0T0 220 
ELSE 230 

410 LOCATE X+4,L!PRINT CHR*(24);P*J 
CHR*(24) 

420 K*=INKEY*: IF K*=" THEN 420 
430 IF (K*<"0* OR Kt>*9') AND (K*<* 
A' OR K*>'F') THEN 420 ELSE LOCATE 
X+4.LIPEN l.'PRINT K*:NID*(A*,X,1)=K 
t:RETURN 

440 REN LISTAD0S 

450 IF N0W=0 THEN RETURN 

460 CLS:LOCATE 8,Ii:PRINT 'I'JSPEN 

3IPRINT 'P'UPEN 1:PRINT "3ANTALLA 

0 £'5:PEN 3IPRINT 'I'JIPEN llPRINT 

'3NPRES0RA' 

470 K*=UPPER*(INKEY*):IF K*=" OR N 
0T(K*='P' OR K*='I') THEN 470 
480 IF K*='I' THEN CH=8 ELSE CH=0 
490 LIN=l:CLS:PRINT *CH,'0IRECCI0N 
DE C0NIENZ0. '}HEX*{BEGIN,4>:PRINT 
tCH 

500 FOR X S A5000 TO N0V-1 STEP 12 
510 CHECKSUN=0:PRINT *CH,USING '##» 
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Con este programa los errores 
do "tedeo" on programas 
integrados por "datos" 
qu dan reducidos a coro. 


introduzcamos el verdadero. 

Una vez superadas con exito 
todas las comprobaciones, nos 
preguntara por el valor de la 
suma de control, es decir, la suma 
de los datos tornados de dos en 
dos (un byte), y en caso de que 
esta no coincida con la elaborada 
por el programa, nos avisara con 
un mensaje de error, debiendo 
volver a introducir de nuevo la 
linea. 

Una vez terminado de 
introducir las lineas o 
simplemente, queremos dejarlo 
para mas tarde, pero sin perder lo 
introducido hasta el momento, 
deberemos contestar con Enter a 
la primera pregunta, con lo que 
regresaremos al menu principal y 
podremos salvarlo. 

Esta es la forma de utilizar la 
primera option del listado, pero 
tambien disponemos de otras 
cinco opciones. 

La segunda de ella nos 
producira un listado de lo 


introducido hasta el momento, 
pudiendo elegir si lo queremos 
por pantalla o por impresora, 
respondiendo a la pregunta con la 
inicial de la option elegida. 

Las otras cuatro se encargan de 
cargar o salvar los datos en cinta, 
siendo la unica diferencia el 
formato en que queramos 
tenerlos, ya sea en un programa 
cargador en Basic o en Binario. 

Si elegimos la option de 
salvarlo en Binario, solo 


deberemos darle al ordenador el 
nombre con el que lo queremos 
almacenar, pues el programa ya 
tiene su direction inicial, la 
longitud la ha ido calculando 
durante el proceso de introduction 
de datos. 

Si por el contrario decidimos 
salvarlo en Basic el programa se 
encargara de generar 
automaticamente un programa 
cargador, y los datos los incluira 
en lineas Data. 


t i\ C A t UNI R! \L (Continuation) 


';LINj:PRINT tCH,' *5 

520 FOR Y=0 TO 11 

530 PRINT #CH,HEX$(PEEK(X+Y),2); 

540 CHECKSUH=CHECKSU«+PEEK(X+Y) 

550 NEXT 

560 PRINT tCH,','j HEX*(CHECKSUM,3) 
570 LIN S LIN+1 
580 NEXT 

590 PRINT “PULSA UNA TECLA" 

600 WHILE inkey*=*':vend:return 

610 REN SALVAR EN BINARIO 

620 IF N0W=0 THEN RETURN 

630 CLS;LOCATE 6,10: INPUT 'NQHBRE D 

EL FICHERO '.NON* 

640 SAVE NQN$,B,&5000,LON 
650 RETURN 

660 REN SALVAR EN BASIC 

670 IF NDV=0 THEN RETURN 

680 CLS:LOCATE 6,10:INPUT 'NQHBRE D 

EL FICHERO ',N0N* 

690 LIN=200 

700 0PEN0UT N0N$ 

710 PRINT 19,'10 REN PROGRAMA CAR6A 
DOR" 

720 PRINT #9,'20 FOR X=6'!HEX*(BEGI 
N,4)J' TO A*jHEX$(BESIN+L0N-1,4)j' 

STEP 12* 

730 PRINT 19,'30 READ LIN*,CHECK*:C 
HECKSUN=0* 

740 PRINT *9,'40 FOR Y=1 TO 24 STEP 
2 ' 

750 PRINT 19,'50 BYTE=VAL('+CHR*<34 
)+'6'+CHR*(34)+'+NIG*(LINt,Y,2))' 


760 PRINT *9,'60 CHECKSUN*CHECKSUN+ 
BYTE' 

770 PRINT *9,'70 POKE X+Y/2.BYTE' 
780 PRINT 19,'80 NEXT' 

790 PRINT *9,'90 IF CHECKSUHOVAL<' 
+CHR*(34)t'6'+CHR*(34)+'+CHECK*) TH 
EN PRINT '+CHR*<34)+'ERROR'+CHRSC34 

)+':end' 

800 PRINT 19,'100 NEXT:END' 

810 FOR X=6S000 TO N0V-1 STEP 12 
820 CHECKSUH*0:PRINT *9,STR*<LIN);' 
DATA 'J 

830 FOR Y=0 TO 11 

840 PRINT *9,HEX*(PEEK(X+Y),2)j 

850 CHECKSUN=CHECKSUH+PEEK(X+Y) 

860 NEXT 

870 PRINT 19,','jHEX*(CHECKSUN,3) 

880 LIN=LIN+10:NEXT 

890 CLOSEOUT:RETURN 

900 REN CAR6AR EN BINARIO 

910 CLS:LOCATE 6,10:INPUT 'N0NBRE D 

EL FICHERO ',NOH*:NON*=UPPER*{NOH*> 

:IF N0H*=" THEN 910 

920 BE6IN=0:L0N=0:CALL 13000,GNOM*. 

*BE6IN,tLON:NOV=6SOOO+LON 

930 AUT=INTCLQN/12)+1 

940 RETURN 

950 REN CARGAR EN BASIC 

960 CLS:LOCATE 6,10:INPUT “NQHBRE 0 
EL FICHERO \N0H*:AUT=1 
970 OPENIN NON* 

980 LINE INPUT i9 f A* 

990 LINE INPUT I9,A*:A=INSTR(A*,'6' 


):BE6IN=VAL('6'+HI0*(A*,A+1,4)) 
iooo nov=65ooo:lon=o 

1010 VHILE INSTR{A*,'NEXT:END')=0 
1020 LINE INPUT #9,A* 

1030 VEND 

1040 VHILE NOT EOF 
1050 LINE INPUT 19,A* 

1060 A=INSTRCA*,'DATA*):A=A+5 
1070 DAT0*=NID*(A*,A,24) 

1080 FOR X=1 TO 24 STEP 2 

1090 POKE NQV,VAL{'6’+NID*(DATD*,X, 

2)):L0N=L0N+1:N0V = N0V+1 

1100 NEXT 

1110 AUT=AUT+1 

1120 VEND 

1130 CL0SEIN 

1140 RETURN 

1150 REN C/N 

1160 FOR X=A3000 TO 63032 
1170 READ A*:PGKE X,VAL('6'+A*) 

1180 NEXT:RETURN 

1190 DATA DG,6E,00,DD,66,01,E5,DD,6 
E,02,D0,66,03,E5,0D,6E,04,DD,66,05, 
7E,23,5E,23,56 

1200 DATA EB,47,li,70,30,C0,77,BC,E 
1,73,23,72.E1,71,23,70,21,00,50,CD, 

83,8C,C0,7A,BC,C9 
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Tambien podemos recuperar los 
datos para poder continuar con su 
insertion. A tal efecto disponemos 
de otras dos opciones 
dependiendo del formato en que 
hayan sido grabados. Si fue Basic, 
deberemos elegir la ultima option, 
y darle al programa el nombre 
con el que fue archivado en cinta, 
y el se encargara de buscar en el 
fichero los datos que necesita. 

En el caso de que queramos 
recuperar un programa salvado en 
forma binaria, al igual que en 
Basic, solo sera necesario su 
nombre, pues el programa leera la 
cabecera y obtendra su direction 
initial y longitud, por lo que se 
evita el tener que recordar estos 
datos, que normalmente se suelen 
olvidar facilmente. 

A modo de ejemplo, os damos 
una rutina lectora de cabeceras, 
que averiguara la direction de 
comienzo y la longitud de un 
programa, ademas de su nombre 
y numero de bloque, y nos los 
mostrara en pantalla. Por ultimo, 
para poder utilizar esta rutina, 
debereis llamarla con Call &A000. 

Esto es todo, esperando que no 
se vuelvan a producir errores a la 
hora de copiar un programa en 
Codigo Maquina. ■ 


f 

✓ 

✓ 



Correa,,, ms rap^a,, 



/ X 

5 


AMSIRAD 


n 



IB 




* 


Con el fin de acelerar lo mas posible el correo, y poder resolver o conk star a 
todas las dudas y sugerencias que llegan a nuestra redaction, a partir de esta sernana 
os rogamos, en beneficio de todos, consignar en el sobre, en lugar bicn visible, una 
de las denominaciones siguientes: 

— Suscripciones AMSTRAD. Para todos aquelos casos relacionados eon petition 
de cintas, numeros atrasados, formalization de suscripciones, devoluciones, etc 

— Mercado Comun AMSTRAD. Compras, ventas, intercambios, clubs . 

— Serie Oro AMSTRAD. Para los prugramas quo nos envieis para su 
publicacion. 

— Sugerencias AMSTRAD. Para vuestras criticas, sugerencias o c ualquier 
opinion cjue querais vertir sobre la revista. 



















EL FANTASTIC® 
MUNDO DE 
LAS EMAGENES 
FRACTALLS 


El programa que hoy proponemos desde esta 
artistica seccion le va a permitir obtener 
hermosas representaciones de montanas , 
utilizando para ello un complejo algoritmo muy 
conocido y usado en el cine de fantasia e 

imaginacion. 


Ija geometria fractal pertenece a una de 
esas extranas ramas matematicas cuyo 
cometido roza lo incomprensible. Su 
fundamento basico es el estudio de unas 
curvas (variedades, dirian los puristas) que se 
encuentran mas alia del mundo 
unidimensional de las llneas, pero que no 
alcanzan la bidimensionalidad de las 
superficies; de ahi su cabalistico nombre, 
fractal, y que pretende explicar la dimension 
fraccionaria de su naturaleza. 

Una de las aplicaciones que los no 
matematicos supieron encontrarle a estas 
teorias fue la elaboration de asombrosas 
montanas, y fue precisamente Lucas Film, 
famosa compania dedicada a la realization de 
peliculas con grandes efectos especiales, quien 
desarrollo el proceso que formarla muchas de 
las montanas que aparecen en sus fantasticos 
paisajes. 

Naturalente, no podemos pretender que en 
nuestro pequeno CPC o incluso en nuestro 
PC 1512, vayan a producirse imagenes 
excesivamente realistas. La necesidad de 
grandes resoluciones, paletas de color muy 
amplias y elevadas capacidades de calculo y 
memoria, relegan este tipo de aplicaciones al 
terreno de los grandes ordenadores, que' 
quedan muy lejos de nuestras capacidades. 


No obstante, lo que si podremos es obtener 
una aproximacion de estos sorprendentes 
resultados en el monitor de nuestro equipo, y 
sobre todo y lo que es mas importante, 
aprenderemos la forma en la que se realizan. 

El proceso de formacion de la montana se 
fundamenta principalmente en la 
trans formacion de un triangulo, del cual 
generaremos cuatro nuevos triangulos, de cada 
uno de los cuales generaremos cuatro nuevos 
triangulos, y asi sucesivamente. En la imagen 
que ilustra la fase 1 podemos apreciar el 
triangulo con el que comenzaremos a trabajar. 
Lo primero que va hacer nuestro programa es 
calcular los puntos medios de 


FASE 1 
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cada lado. Posteriormente movemos este 
punto medio en la vertical, en un factor 
proporcional a la longitud del lado. De esta 
forma obtendremos tres puntos, que junto a 
los tres vertices del viejo triangulo van a 
formar cuatro nuevos triangulos, como 
puede apreciarse en la imagen de la fase 2. En 
este caso en particular, el incremento ha sido 
negativo y por eso los puntos medios han bajado. 

Si a cada uno de estos cuatro triangulos le 
aplicasemos el proceso anteriormente descrito, 
lo que obtendriamos es algo parecido a lo que 
se muestra en la fase 3. 

Segun aumenta la fase, iremos obteniendo 


FASE 2 



cada vez un mayor numero de triangulos, y la 
perfection de nuestra montana y su realismo 
sera tambien cada vez mayor. 

En nuestro caso particular, tanto en la 
version CPC como en la version PC, 
alcanzamos una profundidad de seis niveles. 
Dado que comenzamos con un triangulo, el 
numero final de triangulo que tendremos sera 
de Ix4x4x4x4x4 , lo que supone 
exactamente la cifra de 1.024 triangulos. Y 
para el caso de que queramos profundizar un 
nivel mas, la cifra serla ya de 4.096. 



La forma en la que nuestro programa, en 
dmbas versiones, almacena los triangulos es 
muy simple. Para ello utilizamos dos matrices, 
VX y BY, de 1.200 por 3. En VX 
almacenamos las coordenadas X de los tres 
vertices y en BY las coordenadas Y. 
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FRACTALES PARA PC 1512 


10 RANDOMIZE 
t1UIND0U OPEN 
12HINBDW FULL 

20 DIN ■x(3),*y(3),vx(1200,3),by(1200 l 3) 

40 vx(l,l)=l000:by(l,l)=500 
50 vx(i,2)=4000:by(l,2)=4500 

60 vx(i,3)=7000:by(l,3)=500 
70 n=l:pun=2 

80 CLS 

61 FOR k=l TO 5 

82 FOR n=l TO pun-1 

90 REN calcula nuevos triangulos 

110 incr= 0.4*RNB-0.15 

120 *yCl)=<(by(n,l)+bytn,2))/2)+incr* 

(S6R(((vx(n I l)-vx(n,2)) A 2)+(by(n,l)-by(n l 2)) A 2)) 

130 *x(l)=(vx(n,l)+vx(n I 2))/2 

140 ■y(2)=((by(n l 2)+by(n,3))/2)+incr* 

(S9R(((vx(n,2)-vx(n,3)) A 2)+(by(n,2)-by(n f 3)) A 2)) 

150 ■x(2)=(vx(n,2)+vx(n,3))/2 

160 *y(3)=((bytn,3)+by(n l l))/2)+incr* 

(SQR(((vx(n,3)-vx(n I l)) A 2)+(by(n,3)-by(n,l)) A 2)) 

170 Bsxt3)=(vx(n, 37+vxtn, l>)/2 

180 REN sustituye triangulo n por los tres nuevos 

190 vx(pun,l)=iix(l):by(pun,i)=*y(l) 

200 vxtpun,2)=vx(n,2):by(pun,2)=by(n,2) 

210 vx<pun,3)=*x(2):by(pun,3)=#y(2) 

220 pun=pun+l 

230 vx(pun,l)=ix(3):by(pun,i)=*y(3) 

240 vx(pun,2)=«x(2):by(pun,2)=ty<2) 

250 vx(pun,3)=vx(n,3):by(pun l 3)=by(n I 3) 

260 pun=pun+l 

270 vxtpun,l)=*x(3):by(pun,l)=sy(3) 

280 vxCpun,2)=«x(1):by(pun,2)=ey(I) 

290 vx(pun,3)=*x(2):by(pun,3)=By(2) 

300 pun=pun+l 

310 vx(n f i)=vx(n,l):by(n f l)=by(n,1) 

320 vx(n l 2)=sx(l):by(n,2)=*ytl) 

330 vx(n,3)=ix(3):by(n,3)=«y(3) 

331 NEXT n 

332 NEXT k 

340 REN dibuja triangulos 

350 REM - 

360 FOR i=l TO pun-1 

370 LINE vx(* f l)|byC*,l),vx(«,2)jby(*,2) 

380 LINE vx<« I 2>jbyf«,2) I vxC«,3);by<«,3) 

390 LINE vx(«, l);by(« ( 1) f vxCb, 3);by(*,3) 

400 NEXT 
410 GOTO 410 
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Para realizar la transformation lo que 
hacemos es coger los puntos medios de cada 
triangulo y les aplicamos un incremento 
aleatorio, extraido en la linea 110 del 
programa. En nuestro programa hemos dado 
unos valores comprendidos entre —0.15 y 
0.25, para la version PC y entre —0.15 y 0.15 


FRACTALES PARA CPC 


1 DEFINT b 

2 INK 0,1 :INK 1,26:PEN 0:PAPER 1 
10 RANDOMIZE TIME 

20 DIM MXC3),MYC3),VXCS200.3),BYC1200,3) 
30 MODE 2 

40 VX(1,1)= 50 :BYC1,1)=40 

50 VXC1,2)=275:BYC1,2)=180 
60 VX(1,3)=550:BY(1,3)=40 
70 N=l:PUN=2 

80 CLS 

81 FOR K=1 TO 5 

82 FOR N=1 TO PUN-1 

90 REM calcula nuevos triangulos 

100 REM sustituye triangulo n por los tr 

es nuevos 

110 INCR= RND*0.3-0 15 
120 MYCl)=CCBYCN,l)+BYCN,2))/2)+INCR*CSQ 
RC C CVXCN, 1)-VXCN,2) )'‘2)+<BY(N, 1 )-BY(N, 2) 
j *2)) 

130 MXC1)=CVXCN,1)+VXCN,2)>/2 
140 MYC2)=CCBYCN,2)+BYCN,3))/2j+INCR*CSQ 
RCCCVXCN,2)-VXCN,3)r2)+CBYCN,2)-BYCN,3) 
)'2)> 

150 MX(2)=(VX(N,2)+VXCN,3))/2 
160 MYC3)=sCCBYCN,3)+BYCN,l))/2)+INCR*CSQ 
RC CCVXCN,3)-VXCN, 1)) ''2)+CBY<N,3)-BY(N, 1) 
K2>> 

170 MXC3)=CVXCN,3>+VXCN,l))/2 

180 REM sustituye triangulo n por los tr 

es nuevos 

190 VX CPUN, l) =MX C1):BY C PUN, 1) =MY (1) 

200 VXCPUN,2)=VXCN,2):BYCPUN,2)=BYCN,2) 
210 VXCPUN,3)=MXC2):BYCPUN,3)=MYC2) 

220 PUN=PUN+1 

230 VXCPUN,1)=MX(3):BY(PUN,1)=MY(3) 

240 VXCPUN,2)=MXC2):BYCPUN,2>=MYC2) 

250 VXCPUN,3)=VXCN,3):BYCPUN,3)=BYCN,3) 
260 PUN=PUN+1 

270 VXCPUN,1>=MXC3):BYCPUN,1)=MYC3) 

280 VXCPUN,2)=MXC1):BYCPUN,2)=MYC1) 

290 VX(PUN,3)=MX C 2):BYC PUN,3)=MYC 2) 

300 PUN=PUN+1 

310 VXCN,1)=VXCN,1):BYCN,1)=BYCN,1> 

320 VXCN,2)=MXC1):BYCN,2)=MYC1) 

330 VXCN,3)=MXC3):BYCN,3)=MYC3) 

331 NEXT N 

332 NEXT K 

340 REM dibuja triangulos 

350 REM- 

360 FOR M=i TO PUN-1 

370 PLOT VXCM,1),2*BYCM,1):DRAW VXCM,2) 
,2*BYCM,2),0 

380 DRAW VXCM,3),2*BYCM,3) 

390 DRAW VXCM,1),2*BYCM,1) 

400 NEXT 
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para la version CPC. Notese que estos valores 
permanecen constantes en cada triangulo, y se 
emplean para modificar los puntos medios de 
cada uno de los lados. 

Una vez que obtenemos estos nuevos 
puntos, los incluimos en nuestro array, 
sustituyendo el viejo triangulo, que ya no nos 
sirve para nada, por el nuevo, por uno de los 
generados, y poniendo el resto al principio de 



lo que nos queda libre del array. 

Una vez que hemos realizado la 
transformacion de todos los triangulos, 
comenzamos de nuevo la tarea, y asi hasta 
cinco veces que son controladas por el bucle 
de la linea 81 a 332. 

El bucle final es el encargado de pintar 
todos los triangulos en la pantalla, formando 
de esta manera una montana aleatoria, mas o 
menos convincente. 

Existen varios parametros que pueden ser 
modificados, y con los que obtendremos 
resultados totalmente distintos, que se prestan 
a ser experimentados. Lo primero que 
podemos cambiar el es triangulo inicial. Para 
ello deberemos modificar los valores de las 
lineas 40, 50 y 60. La profundidad es otro de 
los valores que podremos alterar variando la 
constante (5) del bucle por un valor mas bajo, 
ya que no hay memoria para mas. Por ultimo, 
podremos variar el intervalo del incremento, 
modificando los valores de la linea 110. 

El resultado de todo esto no es una 
variedad fractal, pero si nuestro ordenador 
fuese capaz de realizar esta tarea infinitas 
veces y nosotros la paciencia, la enorme 
paciencia de esperarle, lo obtenido si que 
seria una variedad de estas caracteristicas. 


16 AMSTRAD Scmanal 





























































































































































































































































































































trucos 


No se alarme 

por Roberto Aya 

NUESTRO amigo Roberto nos 
envia un sencillisimo truco, a la 
vez que util. Una alarma que el 
ordenador emite cuando se mueve 
el joystick. Ideal para ladrones 
«jugones», amigos pelmazos y 
demas personal que posee la 
envidiable cualidad de 
interrumpirnos con el famoso 
«asunto importante» en aquellos 
momentos algidos en los que el 
byte y servidor son uno con el 
Cosmos. 



^Le suena? 

por Fernando Munoz Maqueda 
LA cosa va de alarmas por 
ordenador, por si a alguien le 
suena, pero con circuito incluido. 
El nivel de sofisticacion se va 
haciendo mayor. Muy a grandes 
rasgos, la linea 120 del programa 




actua como un pequeno 
temporizador. El bucle tarda unos 
tres minutos en ejecutarse. Tras 
este lapso, cualquier intento de 
abrir la puerta se traducira en un 
monumental escandalo organizado 
por el Amstradcerbero. Salvo en 
el improbable caso de un caco 
sordo, cuyo minusvalido percal. 


sin duda nos impeliria a hacerle 
donation de cualquier enser que 
tuviera a bien llevarse, el infarto 
de miocardio del latrocinador es 
cosa hecha. En fin, y en honor 
del llorado marques de Sade, de 
gloriosa memoria, i,que tal si 
encima le diera corriente? Cacos 
no, gracias. 



Como encontrar a 
los primos 

por Jaime Saura 

LOS avispados negociantes, 
tiburones de Wall Street y demas 
emulos de Curro Jimenez mejor 
que no sigan Ieyendo. Esto es un 
programa para encontrar numeros 
primos contenidos entre un rango 


determinado y va muy deprisa. Su 
autor nos explica por que. 

Vamos a suponer que nuestro 
margen de numeros es del 250 en 
adelante. Sacaremos la raiz 
cuadrada: da 15,8113, que no es 
impar exacto. Acto seguido, 
cogeriamos el impar superior, el 
17, y Io sustituimos por el 13 que 
hay en la linea 70. Si el limite 
inferior es, por ejemplo 529, cuya 
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rai'z cuadrada si es impar exacto, 
y vale 23, bastaria con colocar en 
el mismo sitio que en el caso 
anterior dicho numero. Para 
hacerse una idea del aumento de 
velocidad que la receta consigue, 
lo mejor es hacerlo y luego repetir 
el proceso sin la sustitucion. 


10 OEFINT a-z 

20 CIS:INPUT "Linite inferior* 
;inf:IF inf<i THEN 20 
30 CIS:INPUT "Lisite superior* 
',5up: IF sup<inf THEN 30 
40 DIN prii(8000):IF inf=1 THE 
N pri»(l)=l:nu»pri»=l:inf=2:IF 
sup=l THEN 90 
50 IF inf=2 THEN nuisprna-nunpr 
ier!:prii(nuRpriffi)=2:IF sup=2 
THEN 90 

60 IF inf HOD 2=0 THEN inf=inf 
+1 

70 FOR este=inf TO sup STEP 2: 
FOR iispar=3 TO este/13 STEP 2: 
IF este MOD ispar=0 THEN 80 EL 
SE NEXT: nuispri«=nLi»pri»+i:prin 
(nu*priR)=este 




80 NEXT este 

90 i=0:FGR 1ista=i TO nuipris: 
creo=pri*(iista):IF creo=9 OR 
creo=I5 OR creo=2I OR creo=25 
OR creo=27 OR crec=33 OR creo= 
35 OR creo=49 DR creo=55 DR cr 
eo=77 OR creo=12i THEN 110 
100 i=i+i:PRINT*Priffio nuisero"! 
i;":'jcreo:IF i MOD 24=0 THEN 
PRINT’puIsa una tec la”: CALL &B 
806:CLS 

110 NEXT:CALL 5BB06;G0TO 90 


Scrrroll 

por Lucio Fernandez Arias 
CASI se oye el chirrido de los 
bytes arrastrandose por la pantalla 
cuando el ordenador 
trabajosamente ejecuta este 
programa. Por ello, creemos que 
el titulo esta justificado. Es una 
prueba mas de lo que el 


microprocesador del monitor del 
Amstrad puede hacer cuando se le 
invoca adecuadamente. 


Grado a grado 

por Victor Diaz 

ESTE programa no tiene vuelta 
de hoja. Realiza las conversiones 
pertinentes entre cuatro sistemas 
de medir la temperatura distmtos. 
Ideal para suicidarse cuatro veces 
durante las calinas de agosto. 


I -I: ■ 

I" ■ ■ \ 



10 MODE 2 

20 LOCATE 20,10:PRINT*Hemi* 

30 LOCATE 20,il:PRINT*TecIee:* 
40 LOCATE 20,12:PRINT“1-Equiva 
lencia entre grades centigrade 
s.Reaiour.Farenheit,Kelvin pes 
itivos’ 

SO LOCATE 20,i3:PRINT“l-Eguiva 
lencia entre grades centigrade 
s,Rea»our t Farenheit,Kelvin neg 
ativos’ 

60 LOCATE 20,16:INPUT ’Opcion 

elegida (l-2)'in 

70 ON n G0SUB 90,180 

60 CLS:GOTO 10 

90 FOR c=0 TO 1000 

ICO PRINT "CentigradosttReaaou 

rttFarenheiWIKelvin 

110 r=eo*c/ioo 

120 f=180tc/100+32 
130 k=273+c 
140 PRINT c,r,f,k 
ISO NEXT c 

160 IF INKEYI=** THEN 160 
170 RETURN 

180 FOR d=0 TO -1000 STEP -1 

190 PRINT 'CentigradosttReanioii 

rWFarenheitttKelvin 

200 r=80*d/100 

210 f=IBOtc1/100+32 

220 k=273+d 

230 PRINT d.r.f.k 

240 NEXT cl 

2S0 IF INKEY$=** THEN 250 
260 RETURN 



La regia mas 
senciila 

por Esteban Llado 

DE todas las formas de Ilevar a 
cabo un scroll de pantalla, la mas 
simple y elemental es esta. No es 
el summun de la sofisticacion, 
pero funciona y sirve 
perfectamente para incluirlo en 
programas Basic. No se puede 
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trucos 


pedir mas a tres Kneas de 
programa que, dicho sea de paso, 
caben en una. 



10 FOR i=l TO 25 
20 LOCfiTE 1,11 PRINT CHRK8) 
30 NEXT i 


Lo que el viento 
se llevo 

por Esteban Llado 

ESTA rutina, tan corta como 
espectacular, reproduce con 
notable perfeccion el estallido de 
un avion u ovni cualesquiera en 
su fatal encuentro con un 
obstaculo. Esperamos verla 
aparecer pronto en Ios programas 
de lectores. 



Suenos de hacker 

por Alfonso Guzman Bravo 
LOS hackers son aquellas 
personas a las que les encanta 
jugar con el ordenador y, en su 
persecucion de lo prohibido, 
adentrarse mas y mas en las 
entretelas de la maquina. A ese 
enfoque corresponden los 
programitas que nuestro amigo 
Alfonso nos envia. 

Para ejecutar lineas REM: 

10 REM «Esta linea se ejecutara». 


20 POKE &174,191:GOTO 10 

Desaparicion de lineas de 
list ado: 

10 REM 

20 REM «Esta linea es 
imposible». 

30 POKE &185,0 
40 POKE & 172,0 

Por ultimo, para que el listado 
desaparezca completamente y el 
programa no se pueda ejecutar, 
basta teclear: POKE & 170,0. 

En el caso nada improbable de 
que se desee recuperar el listado, 
antes de ejecutar el poke anterior 
almacene en una variable su 
contenido original de esta forma: 

antes = PEEK(&170) 
y, en el momento adecuado: 

POKE &170, antes. 

Formas y formulas 

por Jose Maria Alonso 
Bermudez 

NUESTRAS felicitaciones a 
Jose Maria por su excelente 
contribution a la section de 
trucos. No solo nos envia un 
programita que crea en pantalla 
un dibujo original y bonito, sino 
que tambien tenemos una serie de 
utiles llamadas a la Rom, a las 
que la imagination de nuestros 
lectores encontrara un uso pronto. 
Las llamadas son las siguientes: 
CALL &BC04: Desplaza la 
pantalla 1/2 caracter a la derecha. 
CALL &BAOA: Divide los 
caracteres por la mitad. El efecto 
desaparece al cambiar de modo. 
CALL &BD23: Produce un efecto 
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visual (Nota hiriente de redaccion: 
enigmatico, ieh?). 

CALL &BD12: Inicializa el 
sistema operativo con un mensaje 
de «***pROGRAM LOAD 
FAILED***». 



La botella de Rom 

por Francisco Lopez 

AQUI va este sensacional coctel 
de rutinas que se encontraban, 
hasta ahora, dormidas en la Rom. 
Que trabajen, para eso las pagan. 
CALL &BA34,3: Espera un poco 
y reinicializa el ordenador. 

CALL &BA12: En modo 2 no 
ocurre nada (empezamos bien). 

En modo 1, parte los caracteres 
en 2 mitades iguales, y, en modo 
0, en cuatro. 

CALL &BA10: Convierte las 
letras en absolutamente ilegibles. 
El sueno del programador 
masoca. 

CALL &BA11: Lo mismo en 
modo 2 que con la rutina &BA10. 
En modo 0 y 1 no ocurre nada. 

Reset o no Reset 

por Javier Espinosa 

LA siguiente rutina desconecta 
el Reset en caliente del Amstrad, 




es decir, pulsando Control, May y 
Esc a la vez no ocurre 
absolutamente nada. 

Si desea que la combinacion de 
estas teclas vuelva a actuar, 
ejecutar: 

CALL 40200,0 


10 REM desconectadcr de reset 
20 REM por Javier espinosa 
30 MEMORY 39393 
40 FOR TO 22 
SO READ it 

SC POKE (40200+i)iVRL(* 

NEXT i 

70 DATA fe,0i,>:0,dd,7e,00,fe,0 
0,28,06,3e,t3 

80 DATA 32,ee,bd,c9,3e,[3,32,e 
e,bd,t9 

30 CALL 40200,0:END:REM 40200, 
1 para raodo normal 
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DESDE la aparicion del primer 
microprocesador de Motorola, el 
M6800, ha ido surgiendo toda una 
familia de microprocesadores, 
cada uno de ellos superior a su 
predecesor, a la vez que bajaban 
los precios de los chips. 

El 68000, del que se ocupa este 
libro, tiene un bus de direction de 
32 bits, registro de datos y 
direction de 32 bits y un reloj de 
4 a 12,5 MHz. Se ha ido haciendo 
cada vez mas popular, de tal 
manera que hoy forma parte de 
ordenadores como el Sinclair QL, 
Apple Mcintosh, Commodore 
Amiga y el Atary ST. 

Asi las cosas, el autor propugna 
que la demanda de programadores 
para este procesador va a ser 
«explosiva» y recomienda que se 
aprenda a programar con el. 

Ademas de ensenar, esta guia 
del usuario tiene la ventaja de 
mostrar como se aplican los 
conocimientos adquiridos a 
proyectos reales, analizando en el 
primer capitulo la estructura del 
68000. En los siguientes se explica 
que es un ensamblador y como 
utilizarlo. Especialmente utiles son 
los tres apendices en los que se da 
una lista completa de la sintaxis 
de las instrucciones, las entradas 
CCR y una tabla sobre los modos 
de direccionamiento. 

El objetivo del libro queda 
bastante claro en las palabras de 
Lionel Fleetwood: «nadie dice que 


el lenguaje ensamblador sea facil, 
pero creo que esta aproximacion 
nos ayudara a hacerlo lo mas 
simple que sea posible». 


68000. Guia del Usua¬ 
rio 

Autor: Lionel Fleetwood 

Editorial: Ra-Ma 
Paginas: 180 
Preeio: 1.900 ptas. 


Sistemas expertos 
para ordenadores 
personales 

LA Inteligencia Artificial es una 
parte de la informatica cada vez 
mas desarrollada y con resultados 
importantes en diversas areas, 
tanto que se esta investigando ya 
en los ordenadores de la Quinta 
Generation, donde la utilization 
de estas tecnicas sera exhaustiva. 

Los Sistemas Expertos son 
programas basados en las reglas y 
metodos de la Inteligencia 
Artificial, de manera que simulan 
el razonamiento humano en un 


campo determinado. A la 
introduction y description de este 
tema se dedica la primera parte 
del libro. Analizando a 
continuation las estrategias y los 
diferentes lenguajes de 
programacion que se utilizan en 
los Sistemas Expertos, con una 
detallada discusion sobre la 
conveniencia de utilizar lenguajes 
de proposito general, como el 
Basic, para la creation de estos 
sistemas. De hecho pueden 
utilizarse, pero existen los 
llamados «lenguajes verdaderos» 
de la Inteligencia Artificial, como 
el Lisp o el Prolog, que fueron 
especialmente disenados para estas 
tareas. Sin embargo, al ser los 
mas conocidos por los usuarios de 
los ordenadores personales, el 
Basic y el Logo se utilizan a lo 
largo del libro en las explicaciones 
y ejemplos de programas. 

Como la idea principal del libro 
es lograr que todo aquel usuario 
que se acerque a el obtenga una 
vision completa y tiara de estos 
sistemas y sus aplicaciones, el 
analisis de la Inteligencia Artificial 
esta realizado clara y 
detalladamente, de manera que el 
lector sea capaz de comprender 
esta forma de programar y 
aplicarla un poco mejor que antes 
de leer este libro. 


Titulo: 

Sistemas expertos para 
ordenadores persona¬ 
les (Introduction a la 
Inteligencia Artificial) 

Autor: 

M. Chadwick y J. A. 
Flannah 

Editorial: 

Ra-Ma 

Paginas: 

248 

Preeio: 

2.200 ptas. 





Tratamiento de 
textos con 
Gem Write 

EL tratamiento de textos es una 
de las aplicaciones mas extendidas 
del ordenador, especialmente en 
las oficinas. Gem Write es un 
programa de tratamiento de textos 
para el Amstrad PC, un 
ordenador que, aplicado al 
trabajo de oficina de las pequenas 
empresas, e incluso para los 
particulares, permite utilizar 
recursos hasta ahora solo 
reservados a las grandes empresas. 

El objetivo principal de este 
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libro es ayudar al lector a 
comprender los programas de 
tratamiento de texto y su 
funcionamiento, en este caso 
concreto el Gem Write, un 
programa bueno y rapido que, 
segun el autor, esta indicado para 
todos aquellos usuarios que no 
tienen conocimientos de 
informatica, ni estan 
acostumbrados a manejar un 
ordenador, pero tiene que 
empezar a utilizar un programa 
que procese textos, con la ventaja 
adicional de su precio, 
relativamente barato, y su total 
compatibilidad con los programas 
del entorno Gem, de manera que 
se pueden introducir dibujos y 
toda clase de recursos graficos 
para alegrar los documentos. 

Esta dividido en capitulos. En 
los primeros se hace una 
introduccion al Amstrad PC y al 
Gem, para pasar despues a la 
explication general del 
funcionamiento de los programas 
de tratamiento de textos y, en 
concreto, al manejo de Gem 
Write, con todas sus opciones y 
posibilidades. 

En definitiva, un tema 
interesante, para todos los 
usuarios del PC, tratado con gran 
sencillez y acompanado por 
numerosos esquemas, ilustraciones 
y resumenes. 


Titulo: Tratamiento de textos 

con el Gem Write en el 
Amstrad PC 
Autor: Mike O’Reilly 

Editorial: Anaya Multimedia 
Paginas: 247 
Precio: 2.120 ptas. 


Gufa del 
programador 
para el IBM PC 

TODO libro esconde un secreto 
y a este en particular le ha 
correspondido la dificil tarea de 
desvelar el complejo 
funcionamiento de un PC. 

Su autor, Peter Norton, todo 
un nombre dentro del mundo de 
la microinformatica, conocido 
sobre todo por sus programas de 
utilidades, nos adentra en el 
interior del PC, describiendo, a 
traves de las 463 paginas con que 
cuenta el libro, todas sus 
posibilidades. 

Los temas que recoge son 
multiples y variados. Destaca, 
sobre todo, la parte dedicada a la 
description del bios, con una 
completa information de los 
puntos de entrada al sistema. 
Utilizando estos puntos, 
multiplicaremos la potencia de 
nuestros programas y tendremos 
un control total de nuestro PC. 

El capitulo dedicado a 
interrupciones es tambien 
especialmente interesante, 
dandonos las claves para trabajar 
en modo background, lo que nos 
va a permitir ejecutar varios 
programas al mismo tiempo. 

En general, el libro es una 
estupenda herramienta de trabajo, 
con una lectura sencilla para el 
lector avezado, pero que para su 
perfecta comprension exigira 
varias horas de trabajo, altamente 
recompensadas por el bagaje de 
conocimientos que nos va a 
otorgar. 



Titulo: Guta del programador 

para el IBM PC 
Autor: Peter Norton 

Editorial Anaya Multimedia 
Paginas: 463 
Precio: 


Programacion 
en Lisp 


Programacibn en 



SI el futuro de la informatica se 
encuentra en la Inteligencia 
Artificial, entonces se hace 
imprescindible conocer y saber 
programar en Lisp. 

Esta es la idea que ha movido 
al autor a escribir el libro sobre 
un lenguaje que, ademas, puede 
utilizarse en toda clase de 
ordenadores. 

Esta dividido en tres partes. La 
primera describe de una manera 
bastante sencilla la sintaxis del 
lenguaje. En la segunda se 
analizan las cuatro tecnicas mas 
usuales en la programacion, y en 
la tercera y ultima se presentan y 
comentan los programas que 
componen un pequeno robot 
inteligente. Es decir, una pequena 
introduccion al mundo de la 
Inteligencia Artificial. 


Titulo: Programacion en Lisp 

Autor: C. Queinnec 

Editorial: Paraninfo 
Paginas: 202 
Precio: 
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POSIR TTID ADHS 

EN CP/M 

por JUAN CARLOS PLAZA 


la version del CP/M e imprimir 
una cadena. Para conocer la 
version tenemos que cargar el 
registro «C» con el valor &C y 
llamar a la direccion 5. En el 
regreso, el numero de version esta 
en «L», segun los valores: 

&22 para la version 2.2 
&31 para la version 3.1 
Para imprimir una cadena hay 
que dar la direccion de esta en 
«DE», cargar «C» con el valor 9 
y llamar a la direccion 5, el final 
de la cadena debe ser siempre el 
caracter «$». 


El CP/M si tiene color 

Para los que no les guste ni el 
color ni el modo de la pantalla 


GENERADOR DE COLOR 
COM 


31,28,49, 777 

170 DATA 11,C6.01, CD. 67 01 ,11 
ED, 01,0E, 794 



con que aparece el CP/M al 
cargarlo, aqui dene un programa 
que se teclea en Basic y al 
ejecutarlo produce un 
«Color.Com» ejecutable desde 
CP/M (cualquiera de las dos 
versiones). Para el borde, la tinta 
es de 16 y los codigos de los 
colores son los mismos que los del 
Basic. 

Los que esten interesados en el 
lenguaje maquina pueden ver 
como se utilizan las llamadas del 
sistema operativo del Amstrad 
desde CP/M, si bien la forma de 
usarlas no es como simples 
llamadas, sino que las direcciones 
se deben colocar despues de una 
llamada, que es distinta para las 
dos versiones de CP/M. Para la 
version 2.2 la llamada se realiza a 
la direccion &BE9B y para la 3.1 
o Plus, la direccion es la &FC5A. 
Los registros a la entrada y a la 
salida, para las dos direcciones 
deben tener los mismos valores 
que requiere la rutina llamada. 

Ademas, hemos utilizado dos 
llamadas del BDOS para conocer 


180 DATA 
D6,30,CD. 
190 DATA 
CD.6F, 01, 
200 DATA 
CD, 6F, 01, 
210 DATA 
CD,6F, 01, 
220 DATA 
FE,10,28, 
230 DATA 
CD, 9B, BE, 
240 DATA 
IE, 01,22, 
250 DATA 
01,22, BD. 
260 DATA 
05,00,Cl, 
270 DATA 
C3,01,AF, 
280 DATA 
BE,47,FE. 
290 DATA 
3A, 30, EF, 
300 DATA 
32,C2,01, 
310 DATA 
DD, 3A, C2, 
320 DATA 
OF, B7,C8. 


U1 p CL, 71, U1.3A.W, Ul. 


1041 
9B.BE, 
886 
CD,9E. 

969 
CD.9E, 
997 
CD, 9E, 
1306 
06, CD. 

1546 
38,BC. 

919 
48,01, 
568 
01,18, 
811 

C9, 0E, 
914 
32,C2, 
1331 
OD,C8, 
1413 
3A,C2, 
1016 
78,12, 
1048 
01, IB, 
727 


0E,BC, 11, 
01,F5,11, 
01,F5,11 
01,4F,FI, 
9B,BE,32, 
C9,21.5A, 
22,4E,01 
A3, C5,OE, 
02, CD,67, 
01,CD,9B, 
FE,30,38, 
01,B9,28, 
13, CD, BC, 
FE, 01,06, 


03,02, 
18,02, 
34, 02, 
47,FI, 
BC,C9 , 
FC,22 , 
22,7C, 
09.CD, 
01 , 11 , 
BE.18. 
F3, FE, 
E9,3C . 
01,18, 
00,28, 
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20 MEMORY &8FFF; n=&A000 
30 FOR 1=1 TO 5:FOR j=l TO 10 
:READ a$:b=VAL(”&”+a$) : sco=sco 
+ b:POKE n,b:n=n + l:NEXT 
40 READ s; IF sOsco THEN PRINT 
’’ERROR en linea: M ; 1*10+50 : STOP 


50 sco=0: NEXT 

60 DATA 21,21,A0,7E,47,23,11,0 
0,A3,CD, 843 

70 DATA 8C,BC,ED,4B.2E.AO.2A,3 
0.A0.7E, 1222 

80 DATA CD,95,BC.23,OB, 78,B1.2 
0.F6.CD, 1368 

90 DATA 8F.BC.C9,OC,43, 4F,4C, 4 
F,52,20, 959 

100 DATA 20,20,2E,43,4F,4D,55, 
01,00,90, 563 
110 n=&9000 

120 FOR 1=1 TO 34:FOR j=l TO 1 
0:READ a$:b=VAL C”&”+a$ >:sco=sc 
o+b:POKE n,b:n=n+l:NEXT 
130 READ s: IF sOsco THEN PRIN 
T"ERROR en 1inea:";1*10+150:ST 
OP 

140 sco=0:NEXT 

150 PRINT”Inserts disco y puls 
a una tecla":CALL &BB18:CALL & 
A000 

160 DATA OE,0C,CD,05,00,7D, 














No hay quien borre 

Para proteger ficheros contra el 
borrado accidental, en el caso de 
CP/M Plus, tienen que seguir los 
siguientes pasos. Cargar el CP/M 
Plus e insertar el disco que 
contiene la utilidad Set y teclear 
lo siguiente: 

SET B:NOMBRE [RO] donde 
Nombre es el nombre de un 
programa a proteger. Este nombre 
de fichero admite simbolos 
comodin. Dentro de las opciones 
que se pueden especificar tenemos: 


330 DATA IB, 1A, D6,30, 06, OA, 4F, 
AF, 61,10, 730 

340 DATA FD, 47, 13, 1A, D6, 30, 60, 
C9.CD, 9B, 1320 

350 DATA BE, 5A, BB, C9, 00, 00, 00, 
00, 2A,20, 742 

360 DATA 4D, 6F. 64, 6F, 20,64,65, 
20,70,61, 673 

370 DATA 6E,74,61,6C,6C,61,20, 

79.20.63, 920 

360 DATA 6F, 6C, 6F, 72, 20,64, 65, 
20,74,69, 930 

390 DATA 6E,74, 61.20,2A,20,24, 
0A.0D.4D, 565 

400 DATA 6F,64,6F,20,64,65,20, 
70.61.6E, 906 

410 DATA 74,61,6C, 6C, 61,20,3F, 
20,24,OA, 699 

420 DATA 0D.4E, 75,6D, 65,72,6F, 
20,64,65, 676 

430 DATA 20, 70,6C, 75, 6D, 61,20, 
3F.20.24, 736 

440 DATA OA, OD, 4E, 75. 6D, 65, 72, 
6F,20,64, 765 

450 DATA 65,20,70,72,69,6D,65, 

72.20.63, 919 

460 DATA 6F, 6C, 6F, 72, 20, 3F, 20, 
24, OA, OD, 630 

470 DATA 4E,75,6D,65,72.6F,20, 
64,65,20, 695 

480 DATA 73,65,67,75,6E,64,6F, 
20,63,6F, 999 

490 DATA 6C, 6F. 72, 20, 3F, 20, 24, 
00,00,00, 496 


RO Para convertir el fichero en 
solo lectura. 

RW Para convertir el fichero en 
escritura y lectura. Este es el 
tipo normal de los ficheros, 
a no ser que se especifique 
lo contrario. 

SYS Para pasar un programa del 
directorio al sistema, 
haciendolo invisible a un 
catalogo. 

DIR Para pasar el programa al 
directorio. 

Las opciones RO y RW se 
pueden combinar con SYS y DIR. 

Si queremos proteger todos los 
programas de un disco bastaria 
con: 

SET B:**[RO] 

que nos ira comunicando el 


Help 


nombre de todos los ficheros que 
cumplan la condition. Esta 
protection tambien sirve desde 
Basic, ya que la orden IERA no 
los puede borrar. Si hacemos un 
catalogo de un disco que contenga 
programas protegidos aparecera 
un asterisco al lado del nombre 
del fichero. 

Para los que solo tengan CP/M 
2.2, tendran que utilizar siempre 
discos con formato sistema, y 
copiar la utilidad Stat al disco 
cuyos programas desean proteger. 
Ademas no podran utilizar la 


CP/M 


tecleariamos la siguiente linea de 
ordenes: 

PIP B:A: = *.* [C] 
y conforme se van leyendo los 
programas se nos pide 
confirmation sobre si queremos 
copiarlos o no. Si lo que 
necesitamos es que no haya 
diferencia entre las copias, es 



option de disco B: (a no ser que 
posean dos unidades de disco). La 
forma de protegerlos sera: 

STAT*.COM $R/0 

y para convertirlos en lectura- 

escritura: 

STAT*.CO $R/W 


Mas que PIP, PIP y... 

Para copiar ficheros desde el 
CP/M Plus, todos los usuarios 
conocen la utilidad Pip, en la 
forma: 

PIP B: = A:PROG.BAS 
pero ademas Pip admite una serie 
de opciones, que se colocan al 
final de la linea de ordenes, entre 
corchetes y separados por 
espacios. Asi, por ejemplo, si lo 
que queremos copiar son varios 
programas cuyos nombres no 
tienen nada en comun. 


decir, que no se pueda deslizar 
ningun error, aunque este sea muy 
pequeno, tendremos que utilizar la 
option «V» de la siguiente forma 
PIP B:A: = *.*[C V] 
que ademas de pedirnos 
confirmation tambien verifica la 
exactitud de la grabacion. Otra 
option bastante interesante es 
poder copiar ficheros que sean 
invisibles al catalogo; es decir, los 
que tienen atributo Sys, esto se 
puede realizar mediante la option 
«R». Otras dos opciones 
interesantes son «L» y «U» que 
pasan todos los caracteres ASCII 
de un fichero a minusculas y 
mayusculas, respectivamente. 

Los ficheros copiados con estas 
opciones siguen conservando los 
atributos de los ficheros fuentes, 
asi, si un fichero era de «RO» y 
«SYS», su copia tambien tendra 
estas caracteristicas. ■ 
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'IHHHHtHtttHHHItHMMlIttH _ _ _ ____ 

6 R A F 1 C 0 S Al^ ^ , f *■ ~M I "Wf\ 

'8 Juan Antonio Illescas Arenas I 

'8 Valladolid 1987 8 

f tti8iit«i#«*tiiiii«t*i<in<tiii#ti 


»-} Define ventanas. 

UlNDflU 82 CLOSE 

SCREEN #2 GRAPHICS 1000 FIXED,50 FIXED 

WINDOW 82 PLACE 0;117 

WINDOW 82 TITLE *F I C H E R 0 5" 

SET 82 POINTS 0 COLOR 1 EFFECTS 1 
SCREEN 81 GRAPHICS G40 FIXED, 200 FIXED 
STREAM 81 
WINDOW FULL 

WINDOW TITLE *6 R A F I C 0 5* 

i-> lrializaci6n. 

OPTION RUN 
OPTION DEGREES 
ON ERROR GOTO er 

DIN a*(5),bi(15),1(15,4),sec(15),sec2(15) 
bpi=CHR$(7) 

J=1 

j2=0 

1i= CHRt(237)+CHRI(251) +CHR1(239)+CHRM230) 

r 

1 -> Mend Principal. 

LADEL aenu 
60SUD iar 

SET EFFECTS 1 POINTS 8 COLOR 1 FONT 1 

LOCATE 26j6:PRINT F0NT(2);ADJUST(1B); , HENU PRINCIPAL* 

LOCATE 28;10:PRINT *1.- REPRESENTAR GRAF1C0.' 

LOCATE 2fi;12;PRINT *2.- INTRODUCE DATOS.* 

LOCATE 28jl4;PRINT ’3. SALVAR BATQS. 1 
LOCATE 28;1G:PRINT "4CARGAR GATOS, 1 
LOCATE 28j18:PRINT ‘ESC.- 5ALIR 1 
LADEL rep 
xl=lNKEYf 

IF x*=CHR«(27) THEN GOTO sal 

IF x$>CHRi(52) OR x*<CHR$(49) THEN GOTO rep 

x s VAL(xt) 

ON x GOTO representa,introduce,salva,carga 


Graph 

Por Juan Antonio Illescas 

El Basic del Amstrad PC, ademas 
de ser muy potente, es util. 
Buena prueba de ello es este 
programa de graficos 
profesionales. La palabra que lo 
define es justamente esa: 

profesional. 


>--> Salir. 

LADEL sal 
SET COLOR 1 

LOCATE 28jlB:PRtR7 EFFECTSTE5);“ESC. SALIR. 1 
FOR n=l TO 5000:NETT 

LOCATE 26j20:PRINT \ EstS total*ente wguro 2 (S/M)* 

G0SUB resguesta 

IF sn-l THEN CIS:END 

LOCATE 28il8:PRINT "ESC.- SALIR. 1 

LOCATE 2G;20:PRINT STR1NG«(32,32) 

SOTO tap 


T 7 \"„ 

Ex 


n el programa se ha 
incluido una rutina de 
gestion de errores, 
fmediante la cual, en la 
ventana de dialogo, aparecera el 
tipo de error ERR y el OSERR, si 
es que lo hay, y parara el 


programa para revisar las causas 
que hayan podido ocasionar el 
error. 

A la hora de la representacion 
del grafico, pueden aparecer 


1 —> lntroducir datos. 

LABEL introduce 
SET COLOR 1 

IF intro=l THEN LOCATE 20;20:PR1NT *Existen datos en aeioria. ^Continue? (5/N)*:60SUB respuesta:lF sn=0 T)€N LOCATE 20; 
NG*(50,32):G0T0 rep 
LOCATE 20j20:PRINT STRIN6*(50,32) 
sn=0;r^0;ac$=*ACTlVA RETICULA. •:rell^:eci=‘C0LOR. * 

LXATE 28; 12:PRINT EFFECTS(E5)?"2.- 1NTR0DUC1R DATOS. 

FOR n=l TO 5000: NEXT 
CLS 

LOCATE 32;2:PR1NT FDNT(2);ADJUST(14);-Caapos* 

LABEL caapo 

LOCATE 14;5:INPUT *N4aero de ca»po5 (Mi. 15): '.c! 

IF tKl OR cl>15 THEN LOCATE 38i5:P«INT STR1NS4(47,32):G0T0 ca.po problemaS Si alguno de loS 

m CMP05 ' datos es negativo. Aunque el 

locate 3i; ioiprint NOKcsipcmpo n. 1 programa este hecho tambien 

FOR n=I TD cl 

IF n>l THEM MS 2400; 1775,2800,300:LOCATE 41;14:PRINT STRINGING,32I-.L0CATE 26|14:PRINT ’Caipo anterior: "jbHn-l) 
LOCATE 3B;10:PR1NT MBE(4);C0L0R(3);STRIN6T(LEN(STRl(n)),321 
LOCATE 37;10:PRINT m!DEC2);n 
a=n-l 
LABEL r4 

LOCATE 24;IB:PRINT STRING8(LEN(bl(a))+l,32) 

LOCATE 14;18:INPUT *Introduzca: *,b«(n) 

IF LEN(b$(n)»10 OR LEN(M(n)Xl THEN a=n:60T0 r4 
NEXT 

G0SUB tecla 

as 

LOCATE 31;2:PRINT F0NT(2);ADJUST(14);*Re5i5tros" 

LABEL registro 

LOCATE 12;5:1NPUT "Nfieero de registros (Nix. 4): * f c2 
IF c2<l OR c2>4 THEN LOCATE 38;5:PR1NT STRINGt(39,32):GOTO registro 
BOX 3000;2673,1400,300 FILL WITH 8 COLOR 3 
LOCATE 31;10:PRINT H0DE(2);"Registro N." 

LOCATE 2S;B:PR1NT FOMT(2);ADJUST(14);'Intrcducci«n registros" 


para graficos con datos negativos, es 
aconsejable no utilizarlos, pues 
puede haber errores en la escala, 
como por ejemplo que el valor de 
la linea O no sea el O, que el 
grafico se saiga de la escala, etc. 

En cuanto a los datos 
positivos el programa no 
existe y lo hara a la 
perfection. No admite que todos 


los valores sean negativos, al 
menos uno de ellos tiene que ser 
positivo. 

Cuando se representa un grafico 
mediante barras o lineas, el 
programa dibuja una escala de 
valores en la coordenada Y que 
aparece en la pantalla. 

Esta escala esta dividida en 

20: PRINT STS J 5 p ar ( es> sean J os valores 

positivos o negativos. Si 
todos los valores son positivos, 
tendra como primera linea la O y 
como ultima el niimero 
redondeado a un multiplo de 10, 
de tal manera que al llegar a la 
primera linea el valor sea 0. Asi 
todos los valores de la escala 
seran multiplos de 10, pero si al 
llegar a la primera linea el 
valor no es el cero, 
recalculara la escala de valores 
tantas veces como sea necesario 
para que la primera linea 
tome el valor cero y que entre 
cada valor haya un niimero 
constante. 

Si cualquiera de los nombres de 
los campos es mayor que la 
longitud que tiene este en la 
pantalla, el nombre sera 
abreviado. 
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HEKil PRINCIPAL 


FOR 0=1 TO c2 

UJCATE 41 ;lih PRINT NOBE44)jCDLOR(3);* 

' KITE 40;IO:PR1H? PiOBE«Z) f n 

IF n>T THEN BOX 2400;1775,31W,3M:L0C«T£ 43;14:PRINT STRIN5F(10,32):LOC4TT 2£;14:PRINT ‘Pegistro interior: 

*=n-l 
LABEL- r5 

LOCATE 24;18:PRINT STRING* (LEI«»»Ct»*I,32) 

LOCATE 14; 18: INPUT ‘Introdmce: \a*(n) 

IF LEN(j*(n»>10 OR LEN(a*(n>Kl THEN s=n:GGT0 i5 
NEXT 

MSI® title 

as 

LOCATE 3S;2:PRINT F0VTI2);*0JUST<14);"Valores" 

BO! 2500;2675,1300,300 FILL HITH 8 COL'* 1 
LOCATE 2S;10:PRt«> “W<2)j*Valor de * 

FOR e=l TO c2 
FOR n=l TO tl 

IF all AND n=l THEN a«=-cl*I:«a=H*l ELSE ae=l:ia=0 

IF n>l OR »)1 THEN 801 3400; 2675, (L0l(a»Cria) ] tLEN(bito-ae) )H)«l(li),300 FILL WITH 0 COLOR 0 
POX 3400,2675, (LEN(a*(«mLEN(M(nJH4)M00,300 FILL OITH 8 COLOR 3 
LOCATE 34;10:PRINT IW0E(2);a«(l); - m - |b*(n) 

IF n>l OR ■>! THEN 001 2400; 1775,2S00,300:LOCATE 40;14:PRINT STR1N6»(5,32):L0CATE 26;14:PRINT ‘Valor anterior: ‘;l(n-aa,i-ial 
LABEL rE 

IF r>l OR «>1 THEN LOCATE 24;18:PRINT STRING*(47,32) 

LOCATE 14;18:INPUT ‘Introdwca: ‘,l(n,«) 
in(n,e))999939 OR l(n,i){ -999999 T1CN 68T0 rE 
HOT n,a 
6DSU8 ted 
CLS 

LOCATE 30;4:PRINT F0HT(2);fflJUST(14);‘R«t«ios‘ 

LABEL il 

LOCATE 20;8:INPUT ‘lntroduzca leyenda tinea 1: ',11* 

IF LEN(U»»70 THEN PRINT Lp*:UCATE 20;B;PRINT STR1N6*(100,32):80TO il 
LABEL i2 

LOCATE 20; 10: INPUT ‘Introdmca leyenda liitea 2: ‘,12* 

IF LEN(I2*)>70 THEN PRINT bp*:LOCATE 20;10:PRINT STRIN6*(100,32>:S0T0 i2 

LABEL :3 . • .I.* i» 

LOCATE 20;12:INPUT ’Introduzca rfltulo coordenada 'x*: ",rrt 
IF LEN(rx*)>70 THEN PRINT bpi:LOCATE 20;12:PR1NT STRIN6*(iW ( 32):G0T0 i3 
LABEL 14 

LOCATE 20;14:INPUT ’Introduzca rCtulo coordenada ‘y 1 : ",ry* 

IF LEN(ryi)>22 THEN PRINT bpi:LOCATE 20;14:PRINT STRINGt<100,32):GOTO i4 
GOSUB teda 
intro=l 
GOTO *61111 


1 —> Represantar grAfico. 

LABEL representa 
n1=-1000000:n2=1000000 
IF intro=0 THEN GOTO rep 
SET COLOR 1 

LOCATE 28;lOtPRINT EFFECTS(65);"1.- REPRESENTAR GRAFICO." 

FOR n=l TO 5000:NEXT 
LABEL representa2 

j=l:j2=0;d=0:gradol=0:grado2=0:tctal=0:total2=0:altura=0:altura2=0 
GOSUB aar 

LOCATE 30;5:PRINT ABJUST(10);EFFECTS(0)j’HENU DE REPRESENTACION" 

LOCATE 28;B:PR1NT ’FI.- REPRESENTAR POR BARRAS.’ 

LOCATE 28;10:PRINT "F2.- REPRESENTAR POR LINEAS.’ 

LOCATE 28;12:PRINT *F3.- REPRESENTAR POR SECTORES.’ 

LOCATE 28;14:PRINT ’F4.- ’;ac* * 

LOCATE 28;16:PRINT ’F5.- RELLEND CON ";ec* 

LOCATE 2D;18:PRINT ’ESC.- SALIR AL HENU PRINCIPAL." 

LABEL rep2 
i=INKEY 

IF i=-l THEN GOTO rep2 
IF i=315 THEN GOTO barra 
IF 1=316 THEN GOTO linea 
IF 1=317 THEN GOTO sector 
IF 1=318 THEN GOSUB act desact 
IF 1=319 THEN GOSUB relleno 

IF 1=27 THEN LOCATE 28;18:PR1NT EFFECTS(65);’ESC.- SALIR AL HENU PRINCIPAL.’:FOR n=l TO 5000:NEXT:GOTO *enu 
GOTO rep2 

Activar/Desactivar reticula. 

LABEL act_desact 

IF r=0 THEN ac*=’DESACTIVA RETICULA. "sLOCATE 28;14:PRINT "F4.- ’;ac»:LDCATE 24;20:PRINT ’V-Vertical. H-Horizontal. A-Aabas.’: 
res:LOCATE 24;20:PRINT STRING!(50,32):GOTO rep2 
r=0 

ac!=*ACTIVA RETICULA. ’ 

LOCATE 28; 14:PRINT ’F4.- ’iac*;STRING!(12,32) 

RETURN 

?—> Rellenar con Traaa/Color 
LABEL relleno 

IF rell=0 THEN rell=l:ec»=’TRAHA. ’ RSE rell=0:ect=’COLOR. ’ 

LOCATE 28;16:PR1NT "F5.- RELLENO CON ’;ec$ 

RETURN 

*--> Representar por bar t as. 

LABEL barra 

LOCATE 28;B:PRINT EFFECTS(65);’F1.- REPRESENTAR POR BARRAS." 

FOR n=l TO 5000:NEXT 
CLS 

GOSUB aaxiao 
GOSUB escala 
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GOSUB miaero 
60SUB valores 
gro$or=(p1-350)/c2 
FOR n=l TO c2 

IF n)l THEN p2=ll00+(grosor*75)*j:j=j*l:j2=j2+400 ELSE p2=lJOO 
LABEL cuadro ** - 

IF rell=l TTCN %t=8:c=n*l ELSE tt=n:c=l 
IF t=l MB rell^O THEN c=2 
BOX I200#fi*j2i200,400,200 FILL WITH tl COLOR c 
MOVE 12OO#n*j2+4Wj2O0: PRINT *: ';a*(n) 

IF L=1 THEN RETURN 
FOR •=! TO cl 
GOSUB alt 

IF l(*,n)=l THEN altura=altura+25 ELSE altura=altura+50 
IF rell-I im tt=8:c=n+l ELSE tt=n:c=l 
IF altura=0 THEN altura=50 
BOX p2;b4, grosor, altura FILL WITH tt COLOR t 
p2=p2+pl 
NEXT a,n 
GOSUB rotulos 

IF rell-l AND n2<0 T1€N LINE 950;bl f 8000;bl ELSE IF rell=l THEN dos=l:GOSUB |scala 

GOTO tecla2 -—- 

'—> Represen tar per lineas. 

LABEL linea 


r *Wgwas Hiw hates ftlares Trans liatas faffaaas MS. 


false taa teela wn salif 
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Ficteras Prssrwas Editar Faentes Colores Tram s Lineas Uentanas BfiS:C2 

salir. 


t - 

tM 


FOR n=l TO 5000:NEXT 
CLS 

GOSUB aaxiao 
GOSUB escala 
GOSUB nuaero 
GOSUB valores 
FOR n=I TO c2 
IF n>I THEN j2=j2+400 
PLOT 1200*n*j2;25Q MARKER n*2 COLOUR n 
HOVE 1200#n+j2*200;200:PRINT *: B ja*(n) 
altura2=b4 
p3=1000 
FOR a=l TO cl 
GOSUB alt 
a!tura=altura+b4 

IF alturaCO THEN altura=altura2-altura 

IF a>l T1€N PLOT p3;altura2 HARKER n+2 

LINE p3;altura2,p3*pl;altura COLOR n 

p3=p3*pl 

altura2=altura 

NEXT a.n 

GOSUD rotulos 

GOTO teda2 

*—> Representar por sect ores. 

LABEL sector 
grad=3.6 

LOCATE 2B;12:PRINT EFFECTSCB5);"F3.- REPRESENTAR POR 

FOR n=l TO 5000: NEXT 

CLS 

IF c2>l THEN GOTO separa sector 
FOR n=l TO cl 

IF Un, 1))0 THEN total=tot*HI (n, 1) 

NEXT r 

FOR n=l TO cl 
a=l 

IF l(n,l)<=0 THEN GOTO sg 
GOSUB grados 

IF n>=B THEN tt=n*l ELSE tt=n 

PIE 3590;2490,2000.grado2.grado2+gradol FILL WITH tt 

GOSUD estadistica 

GOSUB grados2 

LABEL sg 

NEXT n 

t=I 

GOSUB rotulos 
t=0 
j2=0 

FOR n=l TO cl - 1 ' 1 

IF l(n,l)(=0 THEN GOTO sg2 
IF n>=8 THEN tt=n+l ELSE tt=n 
DOX 100;4500-j2 l 400,200 FILL HITH tt 
HOVE 500;4550-j2:PRINT *: "jbiCn) 
j2=J2+250 
LADEL sg2 
NEXT 

ct=(40-(LEN(a$(l))/2))*9Q 
HOVE ct;250:PRINT a$(l) 

GOTO tecla2 
LABEL separa_sector 
total=0 
FOR n=l TO cl 
FOR a=l TO c2 

IF l(n,a)>0 THEN total2=totaI2+l(n f a) 

NEXT a 

sec(n)=total2 
total=totaI+total2 
total2=0 
NEXT n 

FOR n=l TO cl 


'F2.~ 

REPRESENTAR POR LINEAS.* 
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VARIABLES 


a$() . Nombres de registros 

b$() . Nombres de campos 

l() . Valores 

11$ . Leyenda de la linea 1 

12$ . Leyenda de la linea 2 

rx$ . Rotulo de la coorde- 

nada ‘jc’ 

ry$ . Rotulo de la coordena- 

da y’ 

c . Color 

altura 2. .Altura anterior 

b4 . Posicion de la barra en 

la linea 0 

bl . Posicion de la linea 0 

bO . N. de lineas negativas 

tt . Trama 

j2,nn .... Incremento 

j . Incremento posicion 

barra 

p2 . Posicion de la barra 

ct . Centrado del texto 

grosor ... Grosor de la barra 
altura ... Altura de la barra o li¬ 
nea 

ec$ . Texto de trama/color 

x$ . Respuestas 

sn . Respuesta (S/N) 

cl . N.° de campos 

c2 . N.° de registros 

rell . Relleno por trama/co¬ 

lor 


intro - Terminacion de intro¬ 


duce datos 

i . Respuesta en el menu 

principal 

nl . Maximo valor de los 

datos 

n2 . Minimo valor de los 

datos 

n3 . N.° maximo de escala 

m4 . N.° minimo de escala 

ml . Media de valores 

m2 . Escala de valores 

pi . N.° de separaciones en 

la coordenada ‘jc’ 

ac$ . Rotulo de activa/de- 

sactiva. 

total - Suma de todos los va¬ 

lores. 

sec() . Suma por campos 


grado 1. .incremento de grado 
grado 2.. Inicio del sector 
Total 2. .Suma de valores por 
zampos 

sec2().... Grados de sect ores 


grad . Coeficiente sector 

dos . Segunda vez que dibu- 

ja linea O 

r . Tipo de reticula 

1$ . Cadena de seguridad 

bp$ . Pitido. 
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tota!2=sec(r) 

gradol=((total2*100)/total)*3.6 

PIE 3590;2490,2000,grado2,grado2*gradd WIDTH 4 

GOSUD estadistica 

sec2(n)=gradol+grado2 

grado2=grado2+gradol 

NEIT n 

gradol=0:grado2=0 
IF t=l THEN RETURN 
FOR fi=l TO cl 

grad=(sec2(n)-see2(n-l))/100 

total=sec(n) 

FDR i=l TO c2 
IF l(n,*)<=0 THEN GOTO an 
60SUB grades 

IF rell=I THEN tt=8:c=a+I EIDE tt=i;c=2 

PIE 3590;2490,2000.grado2.grado2fgradoi WIDTH 1 FILL WITH tt COLOUR c 
GOSUD grados2 
LADEL an 
NETT a.n 

gr ado2=0: gr add =0: tot aI2=0 


Organization 

menu-sal .. 

sal-introduce . 

introduce-representa . 

representa-act—desact. 

act—desact-salva .. 

salva-carga .. 

carga-er .. 

er-tecla2 . 

tecla2-[ Final ] . 


del programa 

Menu principal 

Opcidn: salir 

Opcion: introducir datos 

Menu de representacion 

Opciones del menu de representac 

Opcion: salvar datos 

Opcion: cargar datos 

Gestor de errores 

Subrutinas 
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. {STM 





i=l 

GOSUD separa_s«tor 
GOSUD rotulos 

j2=0 

FOR n=L TO c2 
IF n>l T1€N j2=j2MW 
GDSU6 cuadro 
NETT 
t=0 

GOTO tecU2 

i 

1 —> Salva datos en el disco. 

LABEL salva 

IF intro=0 THEN GOTO rep 
SET COLOR 1 

LOCATE 28; 14:POINT EFFECTS(45);’3.- SALVAL DATOS. < 

FOB n=l TO 5000:NETT 
LABEL silva2 
CLS 

LOCATE 20;12:INPUT ’Introduzca noftbre de ficferc: ',fl 
IF EEN(ft)>8 THEN SOTO Sllva2 
IF LEN(f*)=0 THEN 60TB eenu 

IF INSTR<f*,*.*)=0 THEN f•=■(»*■.6RF - USE f*=LEFT*(f*, lNSTR(f»,’.*l)fGRF- 
IF FlNB»(f«<>" THEN LOCATE 15;16:PR1NT ’Hay or fidsr. : ai el »is«o metre. iContiono? (S/N>':S0SUB res sestaiTF sn=0 THEN S0TD sa 
Lva2 
sn=0 

OPEN IB OUTPUT f$ Sttem frngraws Editar Colerts Iraws tineas Umhcc 8BS1G 

PRINT 16,1$ 

PRINT 16, cl 
PRINT 96,c2 
FOR n=l TO cl 
PRINT #6,b$(n) 

NEIT 

FOR n=l TO c2 
PRINT 96,a$(n) 

NEIT 

PRINT I6,rx$ 

PRINT 16, ry$ 

PRINT 16,11$ 

PRINT #6,12$ 

FOR n=l TO cl 
FOR ■=! TO c2 

IF lNSTR(STR$(I(n,«)) t *,“K>0 THEN PRINT #E l LEFT$(STR$(l(n 1 «)) l lNSTR(STR$(l(n,i)) l ’ l *)-l)F , . ,, +HID$(STR$(nr,i)) l INSTR(STR$(l(p,ii)> 
,■1*1,2) ELSE PRINT #6,1(11,8) 

NEIT i.n 
CLOSE 

LOCATE 30;18:PRINT 'Proceso concluidc' 

GOSUD teda 
GOTO wmi 
LABEL carga 



Instrucciones de manejo 

Al arrancar el programa nos 
aparece un menu principal con 5 
opciones: 

Opcion 1: Nos permite 
visualizar los datos fijos. Sale un 
menu correspondiente. (Esta 
descrito mas adelante). 

Opcion 2: Introducimos los 
datos necesarios para la ejecucion 
del grafico. Si la variable Intro es 
igual a 1 y, por tanto, existen 
datos de un grafico en memoria, 
pedira confirmacion para 
continuar o no continuar. 

En primer lugar hay que 
distinguir entre Campo y Registro. 
Por ejemplo, cuando en los datos 
de un grafico nos presentan: 



Francia 

Italia 

Grecia 

Aceite 

50 

34 

15 

Jabon 

10 

78 

29 

Queso 

49 

61 

109 


El Aceite, 




Jabon y Queso sedan 
los Campos. 

Francia, Italia y Grecia sedan 
los Registros. 

Hay que destacar que el Campo 
y el Registro son intercambiables 
entre si, pero al final el 

•—> carga dates del disco. resultado es siempre el 

IE FINBiO«,6RF’)=" THEN LOCATE 30;20:PRIWT ’No esiste ningin fichero a.6RF’:F0R n=l TO 15000:NEXTrLOCATE 30;20:PRINT STR1NS4(50,32 mismO. g e p Ue den 


Iriwea Catos Trass ur*i* »WH»» »Sig 


■+ 




)IGOTO rep 

LOCATE 28;16:PRINT EFFECTS(65);*4.- CARGAR DATOS. 

FOR n=l TO 5000:NEXT 
SET COLOR 1 
CLS 

CLS #2 _ 

WINDOW 12 OPEN I, ? - .—. —■ . . . . 

FILES I2,**.6RF* * .j 

LABEL carga2 * <- - .— - r - - ■ • -° 'X- -- 

repeat i - 

[[C i ■ _;__ 

LOCATE 20; 14: INPUT ’Nontre del fichero: f* f T.. “ 

IF LENff*)=0 THEN CIS:HINDER 81 0PEN;60T0 «e(iu w 

IF INSTRIft.’.’IOC THEN ft=LEFTt(ft,lNSTR(ft,-’.‘))*’6RF’ ELSE ft=fi*'.8RF’ m 

UNTIL FlND8ff8)<>” 

OPEN 16 INPUT I* 

INPUT 16, lit 

IF htOlf THEN CL0SE:L0CATE 20;16:PR1NT ‘El fichero es de tipo iecorrecto.’:E0R n=l TO 15000:N£XT;GGTD carga2 
INPUT »6,ci 
INPUT 16,c2 


introducir hasta 15 Campos (por 
ejemplo: Enero, Febrero, Marzo, 
Abril, Mayo, Junio, Julio, etc.) y 
hasta 4 Registros (ejemplo: 
Petroleo, Gas, Carbon y 
Electricidad). 

Para explicarlo de una forma 
mas sencilla, lo primero que se 
debe hacer es cargar el programa 
y elegir la opcion 3 (Cargar datos) 
e introducir un nombre cualquiera 
de fichero que sea *.GRF, y que 
hayamos creado previamente. 
Despues elegir la opcion 1 
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FOR n=l TO cl 
INPUT tfi.Mtn) 

NEXT 

FOR n=l TO c2 
INPUT 16,a*(n) 

NEXT 

INPUT tt.rx* 

INPUT *6,ry* 

INPUT *6,11* 

INPUT 16,12* 

FOR r=I TO cl 
TOR «=1 TO c2 
INPUT 16,1(n,*) 

NEXT i»,n 
CLOSE 

LOCATE 30;IB:PRINT 'Proceso concluido." 

Intrc=l 

rell=0:ac*='DE5ACTIVA RETICUL*.’ , -K*='COLOR.*:r=0 

GDSUB ted a 

CLS 

WINDOW tl OPEN 
SOTO i»enu 

1 --> Rutina de errores. 

LABEL er 

CLS 12 

WINDOW 12 OPEN 
STREAM #2 

WINDOW TITLE 'ERRORES' 

LOCATE 6,*2:PRINT 'Se ha producido un error durante 1 

LOCATE ?3;5:PRINT 'Pulse ura tecla para salir.* 

REPEAT: UNTIL INKEVO-1 

CLOSE 

STREAM *1 

CLS 

CLS 12 


? "Tipo de error ERR: ';ERR 

IF 05ERR>0 THEN *> 'Tipo de error OSERR: -jOSERR 


END 

»-> Subrutinas. 

> Pulsacifln tecla (Er ventana.) 

LADEL tecla2 

WINDOW TITLE 'Pulse una tecla para salir.' 

REPEAT:UNTIL INKEYO-I 
WINDOW TITLE *G R A F I C 0 S' 

60T0 representa2 
’—> Respuesta (S/N). 

LABEL respuesta 
x*=UPPER*(INKEY*) 

IF x*="S“ THEN sn=l:RETURN 
IF x*=’N' THEN sn=0:RETURN 
SOTO respuesta 
f —> Narco de pantalla. 

LADEL iar 
CLS 

BOX 151,8180,4999 FILL WITH 4 COLOR 1 

DOX 925;350,6175,4150 FILL WITH 0 COLOR 1 

LINE 1000;400,7000;400,7000;4400,1000;4400,1000; 400 

LINE 925;350,7075j350,7075;4500,925;4500,925;350 WIDTH 

RETURN 


(Representar grafico) y FI 
(Representar por barras). Pues 
bien, los nombres que hay debajo 
de la coordenada ‘X’ son los 
campos y las columnas son los 
registros. 

pasaremos a explicar la opcion 2. 
Cuando pulsemos nos pedira el 
numero de campos. Una vez 
introducidos los datos, se teclean 
los nombres de tipo alfanumerico, 
con un maximo de 10 caracteres. 
Nos ira indicando en que numero 
de campos nos encontramos y 
tambien nos mostrara, dentro de 
un rectangulo, el campo anterior 
para podernos guiar mejor. 

Despues de los campos, 
pasaremos a la introduccion de 
registros, 

a ejesuciAn, revise las causas." mediante Un 

proceso identico 

al anterior. 

A continuacion vendra la tarea 
mas dura: la introduccion de los 
valores. Dentro de un rectangulo 
apareceran los datos que tenemos 
que insertar (por ejemplo: «Valor 
de Francia en Queso»). Cuando 
hayamos acabado de incluir todos 
los valores pasaremos a introducir 
los rotulos de la coordenada ‘X’, 
de la coordenada ‘Y’, la leyenda 
de la linea 1 y la leyenda de la 
linea 2. Las leyendas de las llneas 
1 y 2 son estos rotulos que suelen 
aparecer encabezando el grafico. 
Despues de haber terminado de 
introducir todos los datos, la 
variable Intro tomara el valor 1. 

Opcion 3: Graba en el disco los 
datos del grafico actual, ademas 
de la variable 1$ que sirve 
2 color i para saber, a la hora de 
cargar, si el fichero 


pertenece al programa Graficos. 

Si la variable Intro tiene el valor 
0, la opcion no se ejecutara. En 
caso contrario, se borrara la 
pantalla y nos pedira el nombre 
del fichero (no es necesario poner 
el tipo del fichero). En caso de 
haber uno con el mismo nombre nos 
los indicara preguntando si continua 
o no. Una vez realizada la grabacion 
regresara al menu principal. 

Opcion 4: Carga en memoria 
los datos de un relleno con trama. 
Si no encuentra en el disco ningun 
fichero de tipo *.GRF no se 
ejecutara la opcion, en caso 
contrario, se borrara la pantalla y 
se abrira la ventana 2, conteniendo 
el dire.ctorio de todos los ficheros 
*.GRF. En la ventana 1 sera en la 
que se introduzca el nombre del 
fichero que se quiere cargar (no es 
necesario introducir el tipo del 
fichero, pero aunque se ponga, 
siempre el fichero sera del tipo 
*.GRF). Si no queremos cargar 
ninguno se pulsa Intro. En caso 
contrario grabara los datos en 
memoria del fichero elegido, si es 
que existe. Entonces la variable 
Intro tomara el valor 1 Al pulsar 
esta opcion y cargar el primer 
registro del fichero en memoria, 
comprobara si es de tipo correcto, 
es decir, comprobara si el primer 
registro del fichero es igual a la 
variable 1$. Si la comprobacion es 
correcta el fichero se terminara de 
grabar. En caso contrario, 
mostrara en pantalla que el 
fichero es de tipo incorrecto. 

Opcion 5: Se optiene pulsando 
ESC, de manera que salimos al 
Basic2 o Gem Basic. Pedira 
confirmacion. 


Pulsacifln tecla (En pantalla.) 

LABEL *ecla 

LOCATE 26;20:PRINT 'Pulse una tecla para continuar.' 

REPEAT: UNTIL INKEYO-1 

RETURN 

LABEL res 

x*=UPFER*<lNKEY*) 

IF x*=’V" THEN r=l-.RETURN 
IF k*-'H* THEN r=2:RETURN 
IF x*=*A* THEN r=3:RETURN 
G0TD res 

Iapriie estadistica 
LABEL estadistica 

HOVE 5600;4400:PRINT 'Estadistica:* 

HOVE 6000;4250-n#25C:PRINT b*(n);'= ‘ 

NOVE 7000;4250-n*250:PRINT USING ■|l*.l*';gradcl/3.6; 
PRINT ’ I* 

RETURN 

*—> Conversion a grados. 

LABEL grados 

gradol=((I(n l a)il00)/totan*grad 

RETURN 

Suea de grados. 

LABEL grados2 

grado2~grado2+gradol 

RETURN 

f ~> Altura de la linea o barra. 


Ficfigm fossfatas Etoar Faentis Colores Irms Uneas fontanas BASIC2 

*!”Msg una tecla cara salir. 


US£8 i 



LABEL ili 

altura-ROliND((l(i,n)/al)*250) 

RETURR 


fffK* 
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, --> Rritulos de part all a. 

LABEL rotulos 
ct=INT(40-LEN(lll)/2) 

LOCATE ctjl:PRINT 11$ 
ct=INT(40-LEN(12$)/2) 

LOCATE ct;2:PRINT 12$ 

IF t=I THEN RETURN 
ct=1750-((LEN(ry$)tlO0)/2) 

HOVE 100; ct: PRINT ANGLE (90);ry$ 
ct=f40-(LEN(rx$)/2n*100 
HOVE ct;GOO:PRINT rx$ 

RETURN 

*—* Valor lAxino y »ini»o 
LABEL aaxino 
FOR r=l TO cl 
FOR i=l TO c2 
nl^AKHn.nX.nl) 
n2=MIN(l(r,n),n2) 

NEXT *,n 
PETURN 

Dibuja escala de valores. 

LABEL escala 

LINE 1000;4500,1000;1000.B000;1000 
FOR n=4500 TO 1000 STEP -250 
LINE 950;r,1050;n 
NEXT 

IF do5=l THEN dos=0:RETURN * 

pl=lNT(7000/d) * 

FDR n=1000 TO B000 STEP pi * 

LINE n;950,n; 1050 | 

NEXT 

SET EFFECTS(0) 
nn=INTU050+pl/2) 

FOP n=l TO cl 

IF LEN(b$(n))*100)pl THEN b$(n)=LEFT$(b$(n),5)+V 
ct=rn-(LEN(b$(n))*100)/2 
HOVE ct;B50:PRINT b$(n) 
rr=nn+pl 
NEXT 

SET EFFECTS(l) 

ON r GOSUB reticula2 f reticula f reticula 
RETURN 

'—> Dibuja reticula. 

LABEL reticula 
FOR n=1000 TO 4500 STEP 250 
LINE 100O;n,B000;r 
NEXT 

IF r=2 THEN RETURN 
LABEL reticula2 
FOR r=1000tpl TO BOOO STEP pi 
LINE nj1000,n;4500 
NEXT 
RETURN 

»—> Peterminacifln de flias y valores de cada una. 

LABEL nuaero 

n3=nl*(10-(VAL(RlGHT$(STR$(nl),l)))) 

IF n2<0 THEN GOSUB calcula ELSE b0=0:b4=1000 
RETURN 

LABEL valores 
■l=R0UND(n3/(14-bO)) 

IF ol<=14 AND n2>=0 THEN n3=I4:»l=lsG0T0 y 

IFRtGHTKSTRfdD.DO'O' THEN ■l=il+nO-VAL(RIGHT$(STR$(*l),l)));n3=r3+ROUND((»l-ROUND(n3/(14-bO)))*n4-bO)):n3=n3-VAL(RlGHT$(STR$ se utilizarail todaS las 
(n3),l)) 

LABEL y 

IF n2>=-100 AND n2<0 AND nl<=700 AND nl)10 THEN n3=n3+10 
■2=n3-al 

FOR n=4200 TO 750 STEP -250 
*2=fl2-il 
NEXT 
»2=i2t»I 

ir n2<0 AND »2>n4 THEN al =■! +RQUND(n4/«2):n3=i53+RQUND(n4/«2):GOTO y 
!F i2<>0 AND n2>=0 THEN n3*n3-«2:G0T0 v 


Opcion 1: 
grafico 


Representar 


A1 pulsar esta opcion, y si la 
variable Intro es igual a 1, se 
pasara a un nuevo menu de 
opciones que utiliza las teclas de 
funcion. Cuando hayamos 
acabado con cualquiera de estas 
funciones, basta con pulsar una 
tecla para volver al menu. 

FI: Nos represema el grafico 
mediante barras. 

F2: Nos permite ver el grafico 


F4: Nos permite activar o 
desactivar la reticula de diferentes 
formas. Al pulsarla por primera 
vez, esta se activa y apareee la 
clase de reticula, que puede ser 
vertical, horizontal o ambas. Para 
desactivar se pulsa de nuevo. Si 
esta activada y queremos variar el 
tipo, se pulsa dos veces F4. 

F5: Nos permite variar el tipo 
de relleno para las barras y los 
sectores. Tenemos dos opciones: 
trama o color. Por omision, el 
relleno es por trama, pero para 
cambiar a color se pulsa F5 y 
para volver a trama 
se vuelve a pulsar F5. 

Si el relleno es con trama 


mediante lineas de diferentes 
colores, utilizando simbolos al 
final de cada campo. 

F3: Nos permite ver el grafico 
en sectores o en tarta. 
Solo se representaran los 


datos positivos. 

Pueden surgir dos tipos de 
representacion. Si hay mas de un 
registro, la tarta se dividira 
proporcionalmente 

en campos y estos en 


HOVE 200;4450!PRINT USING , M»U», , ;n3 
•2=n3-fll 

TOR n-4200 TO 750 STEP -250 
N0VE 200|n*PRINT USINB *lttm,*;*2 
■2=.2-il 
NETT 
RETURN 

*--> Dibuja linea ‘O' y calcula filas. 

IT n4*-l=fi3 THEN b0*7:G0T0 ton ELSE n4=n2-C10-(VAL(RlGHT$(STR4(n2) I i)))) rCglStTOS. PerO SI 

n4*n4«-i solamente hay un 

b0*RGUND(n4*15/Cn3+n4)) i Q t ,, 

IF 60=14 THEN b0=13 .. ... re 8 str °> 

!F bO=o and ni>o then bon se dividira en campos. bn 

r4=n4i-s cualquiera de los casos, nos 

label con mostrara una estadistica en que se 

&i=bo«25ouooo muestra el porcentaje de cada 

M=bl campo con respecto a la suma de 

LINE 950 f bl,8000;bi 
RETURN 


todos ellos. 


tramas menos la 8. Si es 
con color, se utiliza la trama 8, 
pero con diferentes colores. 

ESC: Regresamos al menu 
principal. 

Hasta aqui lo que es el 
programa. En cuanto a las 
modificaciones, se podria poner la 
opcion de representar por barras 
apiladas. En el caso de haber 15 
campos y 4 registros (que es el 
maximo de cada uno) se 
representarian un total de 60 
barras, con lo que cada barra 
seria muy fina y es aconsejable 
utilizar el relleno con color, ya 
que el de trama no se notaria. Si 
hay mas de un campo y se utiliza 
la representacion por sectores, los 
nombres de los campos no 
aparecerian al lado de su sector 
correspondiente. 
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hadow 

Skimmer 


El ataque de la Sombra Deslizante 

Si hay algo realmente destacable en este juego. 
Shadow Skimmer, es la acertada mezcla entre la tipica accion 
basada en el fuego a discrecion y la busqueda de objetos. 
Decimos esto, porque mientras vamos eliminando las 
naves enemigas, deberemos ir buscando la manera mas 
rapida para destruir determinados objetos , 
imprescindibles para la mision. Interesante, ino es cierto? 


T odo marchaba como de 
costum bre en el viaje de 
reconocimiento. Era tan 
rutinario que, tambien 
como casi siempre, el 
aburrimiento reinaba en la 
Shadow Skimmer. Este caza de 
combate espacial habla sido 
disenado segun los ultimos 
avanzes tecnologicos y su capitan, 
asi como el resto de la 
tripulacion, ardian en deseos de 
comprobar su poder de ataque. 
Sin embargo, parecia que en esta 
ocasion tampoco tendrian 
posibilidad de estrenar su 
flamante nave. Debido a este 
pensamiento, la tripulacion se 
hallaba totalmente relajada y 
leyendo o jugando a las cartas. 

De repente, una exclamacion, 
mezcla de sorpresa y temor, se 
oyo fuerte por el 
intercomunicador interior. El 
sopor de los hombres de la 
Shadow desaparecio de inmediato, 
puesto que el capitan, frlo y 
calculador, no era amigo de 
salidas fuera de tono. lo que 
habia causado la inusual reaction 
del capitan, muy justificada 
ciertamente, no era otra cosa que 
un descomunal navio que se 


aproximaba al sistema solar. Su 
tamano era aproximadamente el 
de un planetoide, o satelite, y por 
las extranas inscripciones que 
habia sobre su superficie, estaba 
claro que no pertenecia a la raza 
humana. La Shadow Skimmer se 
acerco timidamente a este colosal 
navio, con la intention de 
establecer comunicacion. Bajo una 
gran tension, el capitan comenzo 
a dirigir por radio mensajes a los 
lejanos visitantes. Intento 
transmit irles los deseos de paz de 
los humanos, ya expandidos por 
casi toda la galaxia. Lo linico que 
recibieron a cambio de este 
pacifico mensaje fue una 
andanada de un canon laser, 
capaz de destruir una nave varias 
veces mayor que el Shadow 
Skimmer. Rojo de ira, pero sin 
perder un apice la compostura, el 
capitan ordeno al encargado de 
transmisiones que pidiera 
refuerzos inmediatamente, y 
ordeno a sus hombres, ya situados 
en puestos, disponerse para el 
ataque. En la cabeza de aquellos 
hombres estaba la terrible certeza 
de que se iban a enfrentar al mas 
poderoso enemigo de su vida, tal 
vez incluso fuera la ultima vez 


que entraran en combate. Aunque 
el capitan tenia los mismos 
presentimientos, no dejo que estos 
inundaran su mente impidiendole 
pensar. Casi inmediatamente de 
haber dado la orden de listos para 
el combate, se habia puesto a 
elaborar la estrategia mas 
adecuada para la mision. Despues 
de calcular las posibilidades de 
exito de cada una de las opciones, 
todo esto a la velocidad que 
requeria la situation, se decidio 
por una que parecia la mas 
acertada: intentaria volar los 
sistemas de propulsion de la nave. 
Esto daria a los refuerzos la 
oportunidad de llegar a tiempo, y 
tal vez, en el mejor de los casos, 
hacer saltar por los aires la nave 
invasora. Lo primero que hizo 
para comenzar su plan, fue 
realizar un analisis espectral de la 
construccidn del planetoide, con 
la finalidad de encontrar la 
position exacta de los sistemas de 
propulsion del gigante. Cuando 
esto se hubo conseguido, dio la 
orden de eliminar, con los 
canones laser, una de las puertas 
de salida y entrada de los cazas de 
defensa de este. Cuando se disipo 
el humo, y pudo ver que la 
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ZONA 1 


Empezamos a jugar 
en la pantaila 2-1 y, 
desde alio deberemos 
llegar a «tiro limpio» 
hasta la pantaila 

2- 7. Por la puerta 
que alii se encuentra 
accedemos a las bo¬ 
degas (parte 1) de la 
nave nodriza y des- 
truimos el generador 
que hay en la panta- 
lla 2-3. Salimos de 
las bodegas al inte¬ 
rior de la zona 1, y 
nos dirigomos a la 
pantaila 2-10. Sali¬ 
mos por la puerta alii 
situada y nos halla- 
mos en las bodegas 
(parte 2) del navio. 
Nos metemos por la 
puerta de la pantaila 

3- 1 y aparecemos en 
la zona 2. 
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entrada habi'a quedado libre, el 
capitan dio potencia maxima a los 
motores gravitacionales y se lanzd 
a toda velocidad para penetrar en 
el interior de la nave enemiga, con 
la intention de llegar hasta donde 
estaban los propulsores. 

Este lugar no era otro que las 
bodegas, la zona mas interna de 
la nave, y llegar alii no iba a ser 
muy facil. Menos todavla lo seria 
conseguir destruir el objetivo, 
puesto que los sistemas laser de 
defensa, ademas de los extraflos 
androides que patrullaban los 
corredores, no paretian acogerles 
de muy buena forma. A1 menos, a 
esa conclusion se podia llegar 
despues de ver en que forma 
disparaban. Ante esta situation 
tan poco comoda, los hombres de 
la Shadow Skimmer tomaron la 
unica actitud posible: ajustar al 
maximo de potencia sus canones 
ionicos y, haciendo gala de una 
punteria notable, fueron 
arrasando todo lo que vieron a su 
paso. Mientras tanto, el operador 
del ordenador de a bordo iba 
comunicando al capitan la 
direction a seguir para encontrar 
los motores del navio enemigo. 
Tras recorrer practicamente toda 
la zona I de este, en la cual se 
hallaban las tuberas de escape de 
los motores, encontraron la 
escotilla de acceso a la bodega 
donde se encontraba uno de los 
generadores de propulsion; la 
atravesaron y convirtieron en 
afiicos el primero de los tres que 
tendrian que destruir. Volvieron 
de nuevo a la superficie de la 
zona I, y por otra escotilla 
pasaron a la zona II. Esta, al 
igual que la anterior, o mas si 
cabe, tuvieron que cruzarla de 
punta a punta, para encontrar la 
escotilla de acceso a la bodega en 
donde estaba el segundo 
generador. Cuando estuvieron 
situados frente a el, hitieron 
fuego todos los canones de la 
Shadow y destrozaron, entre 
exclamaciones de jubilo por parte 
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ZONA 2 


Cuando salimos a la zona 2 lo hacemos por la pantalla 1-4, y deberemos bus- 
car la puerta que esta situada en la 5-2. Salimos a los subterraneos, en este 
caso a la parte 3, y destruimos el generador que hay en la pantalla 1-3, busca- 
mos despues en la zona 2 la puerta situada en la pantalla 5-1 y entramos de 
nuevo al subterraneo, exactamente por la puerta situada en 2-1, para volver 
a salir por la puerta que hay en 3-1 y aparecer en la zona 3. 
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una vez fuera, a considerable 
distancia, presenciaron un 
cataclismo de considerables 
consecuencias. La explosion del 
planetoide enemigo. 

Una vez dicho todo lo referente 
al camino a recorrer para 
terminar el Shadow Skimmer, nos 
gustaria contaros algunas cosas 
que habra que tener en cuenta 
durante el desarrollo del juego: la 
primera de estas es la necesidad 
que tendremos de cambiar la 
posicion de nuestra nave, cuando 
vayamos a pasar por alguno de 
los pasadizos que, marcados con 


otro extremo de la zona. Cuando 
llegaron alii, penetraron hasta 
donde estaba la ultima parte de su 
objetivo, ajustaron al mdximo 
toda la potencia de sus Idser y... 
iiBOOMH, el generador fue 
destruido. La alarma del colosal 
navio comenzd a funcionar de 
una manera estridente, y el 
capitdn de la Shadow decidio que 
lo mejor seria salir de alii cuanto 
antes. Lo malo fue que tendrian 
que encontrar otro portdn de 
salida de naves enemigas, dentro 
de la zona III, y utilizarlo ellos. 
Hasta que consiguieron esto 
sufrieron una demora suficiente 
como para observar como crecia 
el panico entre los alienigenas. 
Algo gordo iba a pasar. Menos 
mal que encontraron a tiempo un 
portdn de salida; lo volaron y. 


imi\ 


de sus artilleros, la segunda etapa 
de su objetivo. Volvieron a los 
corredores de la zona y, cuando 
encontraron otra escotilia, se 
llevaron una sorpresa al 
comprobar que les llevaba de 
nuevo al subterraneo en donde 
habian estado momentos antes, 
aunque el sitio era diferente. 
Salieron por otra escotilia que alii 
vieron y pasaron a la zona III. Ya 
quedaba menos para terminar la 
mision. Esto les hacia sentirse 
doblemente esperanzados, aunque 
la Shadow ya estaba bastante 
maltrecha debido a los impactos 
recibidos. Sin la menor dilacidn, 
fueron a buscar la escotilia de 
acceso al subterraneo donde 
estaba el ultimo generador a 
destruir. Como en los anteriores 
casos, se encontraba situada en el 
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una especie de X, estan situados 
por las zonas de la nave. Para 
poder lograr esto deberemos 
pulsar ENTER, o intro, y 
veremos como nuestra nave gira 
sobre si misma y, donde antes 
mostraba su cabina de mando, en 
negro, aparece ahora su parte 
inferior senalada con algo 
parecido a una X tambien. Solo 
en esta posicion podremos pasar 
por el pasadizo. Las escotillas o 
puertas de acceso a las bodegas y 
subterraneos de la nave, se 
pueden diferenciar por las tres 
barras que tienen sobre su 
superficie. Para poder entrar a 
traves de ellas deberemos 
ponernos encima y pulsar fuego. 

A continuation nos encontraremos 


9 
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4-2 


en las bodegas. Los generadores 
que por si no os habeis dado 
cuenta diremos que estan todos en 
los subterraneos, tienen una gran 
X, otra vez este simbolo, sobre su 
cuadrada superficie. Para 
destruirlos solo deberemos 
dispararles, eso si, teniendo en 
cuenta nuestra nave, debera estar 
mostrando su cabina de mando. 
Cuando muestra su parte inferior, 
la nave no dispara. 

Esto es lo mas destacable del 
desarrollo de un juego que en 
realidad no es otra cosa que un 
laberinto, en donde apretar el 
gatillo va a ser una constante. 
Graficamente esta muy bien 
desarrollado, siendo el colorido 
utilizado rico y da vistosidad al 




ZONA 3 

En esta zona empezamos en 
la pantalla 1-5, y deberemos 
dirigirnos a la pantalla 6-1, 
entramos por la puerta que 
encontraremos y accedere- 
mos al subterraneo (zona 4), 
destruimos el generador si- 
tuado en la pantalla 1-1 y 
volvemos a la zona 3. Sera el 
momento de llegarnos a la 
puerta situada en 4-1 y salir 
corriendo, puesto que nuestra 
mision habra terminado. 
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juego. El movimiento es 
adecuado, y el efecto de rebote 
sorprende por su consecucion. Los 
efectos sonoros son los que se 
podria esperar, y la musica del 
juego es realmente buena. 
Esperamos que todo lo dicho 


cumpla perfectamente con la 
mision que le hemos destinado, la 
de seros util de verdad, y que 
disfruteis con Shadow Skimmer, 
juego de The Edge, distribuido 
por Erbe, y que a nosotros nos 
ha parecido muy entretenido. ■ 
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tu aqutque unpoderoso 
querrero apar.-tera, 
procedente de los helados 
erialesdel ftorte ysealzara 
solo contra ia fucrzas del 
mal..." 

{! Librodt: l/i Muerte 
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Para poder cargar estos nuevos 
graficos hay que utilizar el 
Cargador Universal y copiar el 
listado I mediante la opcion I. A1 
ternnnar se debe salvar a cinta 
con la opcion «Salvar binario» 
con el nombre Bargraf. 

A continuation copiar tos 
cargadores de la primera o 
segunda parte, segun sea la que se 
quiere jugar. 

Ejecutar estos cargadores con la 
cinta original del juego. Cuando 
se haya acabado la carga se oira 
un beep, habra que colocar la 
cinta que contenia el fichero 


%*! 


AMSTRAD 


Barbarian 


omo poi eiemplo el monstruo 
^rde que se lleva al que pierde o 
a abezas de las serpientes, y 


Bargraf, salvado anteriormente, y 
pulsar una tecla. Una vez 


H emos canihidct. in ilguno mas que debereis ver sobre cargados los nuevos graficos 

los giafico net a idt al Mnal ael juego. contenzara el juego. 
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214 001100003C3C-280000000000. OBI 

215 OOOOFCFCA 8 OOOOOOOO110015,2C6 

216 383C2AOOOOOOOOOOOO150303,0B9 

217 2AOOOOOOOO11001S23032A00,OAO 

218 00000000003F230317000000.07C 

219 0011002B2303170000000000, 079 

220 002B2303170000000011002B.0A4 

221 2316170000000000003F233E,OFO 

222 170000000011 OOl -5233E1700, OBS 

223 OOOOOOOOOOI5233E17000000,080 

224 0011001.503786-50000000000, 156 

225 00-50F078A800000000110050,2C1 

226 FC78A800000000000050FC78,3E0 

227 A80000000011G050FC78FCOO,379 

228 000000000014F478FCOOOOOO,27C 

229 00030000F478FC0000001-556,2D6 

230 0200F4 7CFCOOOOOO15A902SO»37E 

231 FC7CA80000001-5030250FC7C, 402 

232 AS000000152B2A-50A8F4 A800,3A6 

233 0000003F2ASOA8S4A8000000,2-5D 

234 00000050A854A80000000000,1F4 
23-5 0050A3.5400000000C0000050, ISC 
236 A85400000000000000542854,ICC 
2-37 00000000003C28S400FCFCOO, 2B0 

238 0000143C3C5428FCFCA30000.3A3 

239 O03C28FCBC3C3C3CO00O00G0,2D0 

240 OOFCFC3C2800000000000000,2SC 

241 00332200000011CF33000000,163 

242 CF3F96000000675E4F220000,32F 

243 8FFCA08A0045DE74743A0011,568 

244 DEFCFC8A000067FCED9B0000,64B 

245 67A9ED220000CF7C6D220000,3F9 

246 CF366722G0004-5B98A8AO00O, 3A0 

247 EDDEDEA80054EDFCEDA80054,777 

248 FCDEFCFC0054FCDEFCFC0054,84C 

249 54FCFCS4005433FCB9760054,SA6 
2-50 37FCBD7600543976337C0054,46C 

251 147C3C5400FCS4FCBCS400FC,573 

252 54FCA8S4A8A854FCA354A3A3,738 

253 54FCA864A8AS54BCA800A8A8,6A4 

254 FCFCA800A3A8FCFCFCC0ASA8,334 

255 FCFCFCOOA8A8FC3F7EA8FCA8,849 

256 FC3F7EA8FCA8FCBDFCAS7C00,7DE 
2-57 FCA8FCA80000FCA8FCA80000,690 
258 FCASFCA8000OFCA8-54A80000, -5E3 
2-59 FCA854A80000F CA854FCOOOO , 594 

260 FCA8S4FC OOOOFCA354FCOOOO, -5E3 

261 FCA354FC000054A854A80000.4EC 

262 54A354A8000054A354A80000,3F0 

263 S4A854A80000FC0O00FCO00O,3F0 

264 FCOOOOFCOOOOFCOOOOFCOOOO,3F0 

265 FCOOOOFCOOOOFCOOOOFCOOOO,3F0 

266 FCOOOOFCOOOOBCOOOG7COOOO,330 

267 A80000540000A80000540000,1F8 
263 FC1428FC00S4A83C3C54A3FC,5A0 
269 BC3C3C7CFCOOOOOOOOOOOOOO,2AC 


BARBARIAN I 

10 ' Pokes 6ARSARIAN I (tint*) 

20 ' Pedro H. events. 

30 FOP 3*2060 TO 4803:REA6 AO:POKE 

X, VAL('I'*AI):NEXT 

00 OPENOUT'x'SKENORY KFF'.CLOSEOUT: 
LOAD '! 

SO POKE 12010,201 
SO CAU 12000 
70 POKE SA3.20! 

00 M09E ! 

30 LOCATE 3,10:PAINT 'Eipezir por e 
1 listo qtie te eete ? *i:NHILE »iO* 
":viO*»PEHO( INK£Y8):NEND:PRINT ei 

0 

100 IF ii*='S* THEN POKE 2000,0:POK 
E 2001,0 

110 LOCATE 3, is: INPUT 'Por que eoei 
igo eepiezis (0-7) ';en:lF en<0 OR 
en>7 THEN LOCATE 1,15:PAIHT STAINS* 
(38,' *)iCHR*(7)i:8QT0 110 
120 IF «»•*$* THEN POKE I7E0.1ED:P 
fli(E I7E5.K7 
130 POKE S7E2,en 
UO CALL t«0 

U1 PAINT CHft*(7)CHR*(7) ICALL 18818 
US !«’ » ,» 

ISO CALL 2000 

ISO DATA te,F,AF,21,24,SF,6,S,77,23 
,10,FC,3EiC9,32,2l,6C,3E,0,32,25,6F 
,21,00,09,11,80,SC,01,38,01,EO, BO,I 
1,84,SE,01,BO,06,ED,00,ll.CC,65,01, 

AO, 04,ED,BO,C3,F2,6A 


BARBARIAN II 

10 ' Pokes BARBARIAN II (cinti) 

20 ' Pedro N. Cuenu. 

30 FOR K>2000 TO I8031REA0 88:POKE 

X, VAL( a r«At>:NEXT 

40 OPENOUT'x'INEHORT i8FF:CL0SE0UT: 
LOAD '! 

SO POKE 12014,201 
60 CALL 12000 
70 P0KMA3.20! 

BO MODE 1 

90 LOCATE 3,10:PRINT 'Eepezer por e 
1 listo qye te ute ? *;:VK1LE est 
*':»i*sUPPER*(INKET4):UENO:PRINT ei 
% 

100 IF sil*’S* THEN POKE 2000,0:P0K 
E 2001,0 

110 LOCATE 3, is: INPUT 'Por que tnte 

igo ttplezts (0-7) 'len:iF en<0 OR 

tn>7 THEN LOCATE 1,15:PRINT STRINBI 

(38,* ')iCHR8(7)i:B0T0 110 

120 IF ii*»*S* THEN POKE I7E4,SED:P 

OKE i7ES,SC7 

130 POKE i7E2,en 

140 CALL 140 

141 PRINT CNR«(7)CKRK7>:CALL 488:8 
US LOAC'IBIRSRAF',1900 

ISO CALL 2000 

ISO DATA 18,F,AF,21,EE,SF,6,5,77,23 
,10,FC,3E,C9,32,8C,6B.3E,0,32,EF,6F 
,21,00,09,11,80,SC,01,38,01,EO, BO,1 
1,B4,5E,0!,B0,0S,ED,B0,11,CC,65,01, 

AO, 04,E0.B0,C3,F2,6A 



Game Over 
disco 


L os pasos a seguir, para la 
carga del programa con los 
nuevos graficos, son los 
siguientes: 




JUEGOS 


cinta 


2. Teclear con la opeion 1 del 
Cargador Universal (publicado en 
la revista), el listado I. 

3 Salvar en cinta el codigo 
generado, utilizando para ello la 
opeion 3 del Cargador Universal y 
empleando el nornbre 
Graficos.Bin, 

4. Ejeeutar el programa I (run 


game) siguiendo sus instrucciones. 

5. Cuando el programa avise 
con un beep, insertar la cinta en 
la que hayamos grabado el 
programa Graficos.Bin, y pulsar 
una tecla, 

6. Cuando se complete la 
carga, el juego dispondra de los 
nuevos graficos. 


1. Teclear el programa I y 
salvarlo en disco con save GAME. 

2. Teclear con la opeion 1 del 
Cargador Universal (publicado en 
la revista), el listado I. 

3. Salvar en disco el codigo 
generado, utilizando para ello la 
opeion 3 del Cargador Universal y 
empleando el nornbre 
Graficos.Bin. 

4. Ejeeutar el programa I (run 
game), siguiendo sus 
instrucciones. 

5. Cuando el programa avise 
con un beep, insertar la cinta en 
la que hayamos grabado el 
programa Graficos.Bin, y pulsar 
una tecla. 

6. Cuando se complete la 
carga, el juego dispondra de los 
nuevos graficos. 

Game Over 


PROGRAMA I (DISCO) 

10 REh Cargador de nuevos graficos para Game Over (disco) 

20 OFENOUT "D":MEMORY 1309:CLOSEOUT 

30 CLS:PRINT "Inserts disco-original y pulsa una tecla";: CALL &BB18 
40 LOAD "gol" 

50 PRINT CHR$(7)5:CALL &BB18 
60 LOAO "graficos.bin" , 27430 
70 CALL 36-500 


PROGRAMA I (CINTA) 


10 MEMORY 35000 

20 FOR X=&BOOO TO &B01B:READ A*:POKE X,VAL<"&"+A*):NEXT 

30 MODE l:PRINT:PRINT:PRINT "Inserts cinta original y pulsa una tecla";:CALL &BE 
18 

40 LOAD "»c 
50 MODE 0 

SO POKE &3D02,0:POKE &8D03.&B0 
70 CALL &8CAO 
80 END 

90 DATA 3e,7,cd,5a,bb,CD,14,BC,6,0,11,0,CO,CD,77,BC,21,3E,67,CD,83,BC,CD,7A,BC,C 
3,4A,1 


/%■ * • - 1 • ■ 


P ara cargar los nuevos graficos, 
si se dispone del juego en 
cinta, hay que observar estos 
pasos: 

1. Teclear el programa I y 
salvarlo en cinta (save game). 
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DIRECTION DE COMIENZO..9C40 


18060000413CS200000096FC,: 
El0000000270610000000202,^ 
€300004178F0E10000D269F0, i 
E100000278C3028241B4F0F0, ; 
028241B4E1E1E10G41B4F0F0,7 
E1000096E1FOE1000096E1F0, ( 
F0820096E1F0F0S24178D2F0,> 
F0824178D2E1F0004178E1FO,: 
B5820096E1F0B532009GF087,t 
7FS20096F0876B000041787F, i 
6B000041787F820000C3C33F,: 
C3004114F096A041411478E1, 1 
78AO18060000C33C82000041,: 
B4F0E1000002D27061004178,? 
F0D2C30041F0F0F0E10096FO,' 
E1 FOE10096FOD2C3D28296F O, i. 
D2F00282D2F0C3E1E1007SE1 ,t 
3CF0E100789678FOE1007896,f 
78F0F0827S9678F0F0E1E13C,J 
FOFOFOD2E13C78E1F0F0F036,1 
7AF0B5E178967AF0B5S278B4,: 
3FA56B0078E1BF2F6B0096E1,' 
3F7F6B0096E1B57F820000D2,J 
963F8200004178E182000041,: 
78FOE10018060000413C8200, ■ 
0O0O96F0E1OOOOOOD27C6100, - 

















Army cinta 


27 Q0O0D2D2C3OOOO4178F0E100,4Fi 


28 C096E1FOE1000096FOC3D282, 6ES 

29 4178F0FOD2824178E1E1E1OO.749 

30 4178FOFOE1000O96E1 FOE 100, 6C2 

31 00S6E1F0F0S20096E1F0F082,7E2 

32 4178AOFOF0824114AGFOSOOO, 5F0 

33 4114F050B5820014F050B582,557 

34 OO0278AO7F82OOS278AO6BOO,4A0 

35 004150A06B00004114558200,2C8 

36 00C3C33FC3004178E196F0C3,66B 

37 413CF0E178F0180600000000,3D4 

38 OOOOOOOOOOOOOOOOOOOOOOOO,000 

39 OOOOOOOOOOOOOOOOOOOOOOOO, 000 

40 00000000000000000000413C, 07D 

41 820OOOOO96FOE1OOOOOOD270,42B 

42 61000000D2D2C300004178F0,471 

43 E1OOOOD269FOE1OOOOD278C3,5FA 

44 D28241B4F0F0D2824178D2E1.7ES 

45 F0004178E1F0B52800D2E1FO,6FA 

46 B528009SF0877F820096F087,5F:J 

47 7A000041787F3EA00041787F,308 

48 D2AOOOC3C33F78004178E182,SC B 

49 7841413CF0E13CF018060041,492 

50 3CS2000000D2F06900000092,37B 

51 BOE1OOOOOOC3E1E1OOOOOOD2,4E8 

52 FOB 4S20000D2F096E10041E1,681 

53 C3B4E10041E1F0F0788200D2.726 

54 D2D2788200D2F0F0788200D2,71C 

55 FOD2690041FOF0D2690041FO,6B8 

56 F0D2690041F0F0E1B48200F0,753 

57 D2E1B482417AF0D2B482417A.. 757 

58 F0D2690041BF4BF069000097’, 566 

59 4BF069000097BFB482000041,471 

60 BFB4820000C33FC3C3008250, S4F 

61 69F0288250B4D2B428821B06,555 

62 00413CC3000000D2F0788200,3FC 

63 0092B0E1E10000C3E1F0B482,6CE 

64 OOD2FOF 0F08200D2FOD2F069,811 

65 41E1C3E1F06941E1FOE1F069,86B 

66 00D2D2C3F0E100D2F03CD2B4,7BC 

67 00D2F06469B441F0F0B469B4,785 

68 D2FOF0B469B4E1F0F0F03CD2,942 

69 F0F0D2B43CD2D27AF0B569F0,8BE 

70 417AF0BS69B40097SA3F7884,SD9 

71 00971F7FD2B40097BF3FD268,S8B 

72 0041BF7AD26900413F69E1QO,47F 

73 0041D2B482000QD2FGB48200-,541. 

74 180600413C82000000D2F069,348 

75 00000092BQE1000000C3E1E1* 4A8 

76 OOOOOCD2FOB482000002FOIS2,SBC 

77 690041E1C3F0690041E1F0F0,669 

78 B48200D2D2D2B48200D2FOFO,794 

79 B48200D2F0D2690041FOF0D2,726 

80 690041FOF0D2690041F0F050,636 

81 B48200A0F0502882417AA0F0,60B 

82 2882417AA0F0280041BF50B4,521 

83 41000O9750B441000097S0A0,3 A4 

84 82000041AA28820000C33FC3,3DC 

85 C300C3FC69D2B482F0B4D2F0,84D 

86 3C8218060000000000000000, ODC 

87 OOOOOOOOOOOOOOOOOOOOOOOO, 000 

88 OOOOOOOOOOOOOOOOOOOOOOOO. ooo 

89 0000000000413C82000000D2,1D1 

90 F06900000092BOE1OOOOOOC3,43F 

91 E1E1000000D2F0B4820C00D2, S8C 

92 F096E10041E1C3B4E10041E1,703 

93 F0F0788200F0D2E1B482147A,741 

94 F0D2B482147AF0D2E10041BF,729 

95 4BF0690000BS4BF06900503D,48A 

96 BFB48200S0E1BFB4820000B4,5CF 

97 3FC3C30082B441D2B482F03C,670 

98 D2F03C82180600413C82S028,415 

99 00D2F028F0B400D2F028F064,71C 

100 OOD2FOAOS0B4OOD2F0AOSO28,640 

101 0050F 0A0F0280000F0E1FOAO,659 

102 0041FOSOF028005CD2F0F028,SC3 

103 OOF OF OF OF02800F0F OF 0B400,76C 

104 OOF OF OF 0B400S050F0F01400,618 

105 FOFOF OFOAOOOF OFOFOF OAOOO,8C0 

106 F07AFOF06900S07Af0846BOO,68C 

107 00973E3F2A0000973F3F8200,2DS 

108 0O3D3F3F8241S0B43F3E8241.3C2 

109 00413F5G6900004100502800, 1F2 

110 00820050F02818065028413C,2FD 

111 8200FOB450F06900F GB450F0,6B3 

112 6900F02850F06900502850FO,4E2 

113 E10050B450FOA00050B4D2FO,68B 

114 OOOOSOF028F0820050F0B4E1,SAF 

115 280050FOFOFOB40000FOFOF0, 6CC 

116 B40000FOFOFOFOOOOOAOFOFO,6F4 

117 A0280050F OF0FOB40O5OFOFO, 6CC 

118 FCB400D2F0F0B5F00097F0F0,872 

119 B5A000153F3D6B0000413F3F, 310 

120 6B0082413F3F3E008241B53F, 3A1 

121 F02800D2A03F820000502800, 3C3 

122 820050B42800410000000000, 1EF 


P ara poder ver los nuevos 5. Salvar en cinta a 

graficos del Army Move se continuacion del programa Ambu, 

deben realizar los siguientes pasos: el codigo generado, utilizando la 
1. Teclear el programa I y opcion 3 del Cargador Universal y 

salvarlo en cinta mediante save empleando el nombre Super, 
army. 6. Ejecutar el programa I (run 

2. Teclear con la opcion 1 del army), siguiendo sus instrucciones. 
Cargador Universal (publicado en 7. Cuando el programa avise 
la revista), el listado I. con un beep, insertar la cinta en 

3. Salvar en cinta el codigo la que hayamos grabado los 

generado, utilizando para ello la programas Ambu y Super y pulsar 
opcion 3 del Cargador Universal y una tecla. 
empleando el nombre Ambu 8. Cuando se complete la 

4. Teclear con la opcion 1 del carga, el juego dispondra de los 
Cargador Universal, el listado II. nuevos graficos. 
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EDICiON ESPECIAL SUSCWPTORES MtCROHOBBf 


Version AtfSTRAD 


ARMY MOVES 

DERDHAL es un miembro del C O E , 
Cuerpo de Operacton, Espe tales 
Ha -ido entrenad■> durante la us cuius 
para convertirse en un espt\ iciUsta, 
y ahora es el prhnera de at promotion 
Puede airavesar las Knttas enemsgas 
par tierra, mar o aire : dortina 
toaas las let nicas de la guerra 
en la selva, conoce lodes las arenas 
y es un experto en explosives 
ARMY MOVES, tres s,ststv.es 
de i ombate di.'lm/i/ 

• JEEP equipado con misiles tierra airr 
« HF.LICOPTERO COBRA para la lupha 

en la jungla. 

• SOLDADO COE, miembro 

• uerp. i lie eht* - i irenado en tod, 

te< nicos.-id., 1 i ;rr< 


Army disco 

L os pasos para cargar los 

nuevos graficos, en la version 
disco, son practicamente iguales 
que en cinta. Basta con: 

1. Teclear el programa I y 
salvarlo en disco mediante save 
army. 

2. Teclear con la opcion 1 del 
Cargador Universal (publicado en 
la revista), el listado I. 

3. Salvar en disco el codigo 
generado, utilizando para ello la 
opcion 3 del Cargador Universal y 
empleando el nombre Ambu. 

4. Teclear con la opcion 1 del 
Cargador Universal el listado II. 

5. Salvar, en el mismo disco en 
que salvamos Ambu, el codigo 
generado, utilizando la opcion 3 


del Cargador Universal y 
empleando el nombre Super. 

6. Ejecutar el programa I (run 
army), siguiendo sus instrucciones. 

7. Cuando el programa avise 
con un beep, insertar el disco en 
el que hayamos grabado los 
programas Ambu y Super y pulsar 
una tecla. 

8. Cuando se complete la 
carga, el juego dispondra de los 
nuevos graficos. 
































Sprits 

L os cam! ios son, por cjemplo, 
cl Iibro por un polio, un 
paraguas para amortiguar la falia 
dc Willie, etc. 

Para poder cargar estos nuevos 
gratieos hay que utilinar el 
C argador Universal v copiar cl 
h t tdo I mediante la opcidn 1. Al 
terminal- se debe sal\ar saKar a 
cinta con la option «Salvar 
Hit ario» con el rombre Spigraf. 

A contn uacion copiar los 
eargadorcs de cinta o disco. 

Ejecutar estos cargadores con la 
cinta o disco que cont nga cl 
lithero Spigraf, coloc ir la cinta o 
disco original del juego y puls ir 
ima tecta. Al ten mar la ca ga ya 
pod emos jugar con los nuevos 
grafic s. 


SPIRITS 

| 


LISTADO I 

DIRECCIDN DE C0MIEN20 4000 


1 18OAOO00OOO4OC84OCOCOCOC, 0E6 

2 OOOOOOO8O4840CSDAEOCOO0O,IBS 

3 0008Q4840C5DAEOC00000400, i B7 

4 04840CFFFF0C058A04000484,3B9 

5 0CFFFF0C0S8A040004840CFF,43C 

6 FF0C040C0C000484CC7FBF0C,305 

7 CCOCOC0COC84OCSDAEOCO40C,1F3 

8 840C0C840C1 D2E0CC0C048C0,40B 

9 C0840C0C0C0C840C480C489S,335 

10 3F3F3F3F840C480C0C840C0C,288 

11 0C0C0C48C00C0C840C0C0C0C,1F8 

12 0C840C840C840C0C0C0C0408,1EC 

13 00480C840C0004080C000040,13C 

14 OC840800005D84002A400C84,273 

15 0815005584153F04C084083F,2D9 

16 2A0C403F9S2E0C0C1DSA3F08,2SE 

17 402E846AC0C095481D80006A,400 

18 402AOOOO1S809S00002E842A,270 

19 OQOO1S481D00003F9S2A0000,178 

20 1S6A3FOOOO1S3F000000003F,1S1 

21 2A0018GAOOOOOOOOOOOOOOOO,040 

22 000000000004008400000000,004 

23 OOOOOO08O484OCSDAEOCO0OO,1B3 

24 000804840CSDAE0000000400,1B7 

25 04840CFFFF0C450A04000484,379 

26 OC'FFFF0C450A040004840CFF, 3FC 

27 FF0C040C0C0004840C7FBF0C,305 

28 0C0C0C0C0C840CSDAE0C040C,1F3 

29 840C0C840C1D2E0CC0C048C0,40B 

30 C0840C0C0C0C840C480C4895,335 

31 3F3F3F3F8400480C0C84000C,288 

32 OCOCOC48COOCOC840COCOCOO,IF8 

33 008400840084000000000408,1EC 

34 004800840C0004080C002A40,166 

35 0084081S00SD84153F400C84,2B2 

36 083F2A55843F1D2E00841D2E,363 

37 3F0C406AC02E0C0C1DC09508,37S 

38 402E046A000095081D80006A,400 

39 C02A000015C09500003F1 D2#F, 2DA 

40 00001S2E3FOOOO153FOOOOOO, OD6 

41 003F2AOOOOOOOOOOOOOOOOOO, 069 


LISTADO II 


DIRECCIDN DE CDMIENZQ. 4000 


1 18OAOOOOOOOOOOOOOOOOOOO0,022 

2 000000000000600000060000'000 

3 000000000000000000000000,000 

4 000000000000000000000000,000 

5 000000000000000000000000,000 

6 OOOOOOOOOSOAOOOOOO15FF00,123 

7 OOOOOFOOOOOOSSFFAAAAOOOO, 2B7 

8 2700551DFF7F5500000033FF,39E 

9 AE007FAA002A00003355FFFF,493 

10 FF5SAA150000050AC33FC397,47E 

11 BF2 A270F0A4FCFFF0F5F7FBF, 4F2 

12 11C3C3OF4FDFOOOOOOFFOO00,3D3 

13 0005228A0000005500000000,106 

14 670000000000000000000000,067 

15 000000000000000000000000,000 

16 00000000000000; 000000000,000 

17 000000000000000000000000,000 

18 000000000000000000000000,000 

19 000060000000000000000000,000 

20 000000000000000000000000,000 

21 00001BOAOOOOOOOOOOOOOOOO,022 

22 OOOOOOOOOOOOOOOOOOOOOOOO 000 

23 000000000000000000000000,000 

24 000000000000000000000000,000 

25 000000000000000000000000,000 

26 000000000000000000000000,000 

27 OOOOOOOOO50OOOO0OO15FFO0,119 

28 OOOOOFOA0055FFFFAAOOOOOO 316 

29 2700551DFFBF5500000033FF,3DE 

30 AE0C7FFFAA2A00O03355AEFF,S41 

31 FF7FFF150000050AC33FEB97,S25 

32 BF2A270F0A4FCFBF0FSF7FBF.4B2 

33 11C3C30F4FDF000000FF0000,3D3 

34 0005008A0000005500000000,0E4 

35 228A00000000000000006700,113 


36 000000000000000000000000.000 

37 OOOOOOOOOOOOOOOOOOOOOOO0,000 

38 OOOOOOOOOOOOOOOOOOOOOOOO 000 

39 000000000000000000000000,000 

40 000000000000000000000000.000 

41 0000000018OAOOOOOOOOOO0©,022 

42 000000000000000000000000,000 

43 000000000000000000000000,000 

44 000000000000000000000000,000 

45 000000000000000600000000,000 

46 0000000100000000000000000,000 

47 000000000000000000000000,000 

48 550000000500000000FFAAOO, 203 

49 OOOOOFOOOOFFFFFFAAOOOOOO,3B6 

50 270AFF10FFBFFF00000033FF,53C 

51 AE0C7FFFBF2A0000335SAEFF,556 

52 FF7F2A15270F050AC33FC3BF,486 

53 BF2A11C3824FCFBF0F5F7FBF,5C8 

54 OOOOOOOF4FDFOOOOOOFFOOOO,23C 

55 0005008A0000005500000000,0E4 

56 228A00000000000000006700,113 

57 000000000000000000000000,000 

58 000000000000000000000000,000 

59 000000000000000000000000,000 

60 OOOOOOOOOOOOOOOOOOOOOOOO,000 

61 000000000000180A00000006,022 

62 OOOOOOOOOOOOOOOOOOOOOOOO,000 

63 000000000000000000000000,000 

64 000000000000600000000000,000 

65 000000000000000000000000,000 

66 000000000000000000000000,060 

67 0OOOBF55OOOOOOOOOOOOOOOO,114 

68 FFAA2AOOOOOOOOOOOOOOFFFF,3D1 

69 15000000D00000557FFFOOOO,1E8 

70 OOOOOOOOOOAEBFAABFOOOOOO,206 

71 OOOOS5SD7FEBFFOOOOOOOOOA,325 

72 O45DC3OFOOAAOOOOOFO0FF68,356 

73 OFOOO0OOOOO51B5FAA2FOOOO,167 

74 0000000033459FAAOOOOOOOO,1C1 

75 0000338A4500000000000000,102 

76 11OOOABAOOOOO0O0O0OOOFOS,089 

77 008AOOOOOOOOOOOF87CF118A, 1C A 

78 0000000005C3000A11000000,0E3 

79 000033000000000000000000, >33 

80 220000000000000000000000,022 

81 0000000000000000180AO000,022 

82 OOOOOOOOOOOOOOOOOOOOOOOO 000 

83 000000000000000000000000,000 

84 OOOOOOOOOOOOOOOOOOOOOOOO,000 

85 OOOOOOOOOOOOOOOOOOOOOOOO, >00 

86 000000000000550000000000,055 

87 OOOOOOOOFFAAAAOOOOOOOOOO,253 

88 00555SBF1500000000000055,1D3 

89 FFFFOOOOOOOOOOOOOOAEBFAA,415 

90 BFOOOOOOOOOOOOSDFFC3FFOO,3DD 

91 O0OOOOO0O4SDEBOFOOAAOO0C,205 

92 OFOOFF6BOFOOOOOOOOG51B5F,207 

93 AA2F000000000000334S9FAA,29A 

94 000000000000338A45000000,102 

95 0000000011OOOABAOOOOOOOO,0AS 

96 00000F0S008A000000000005.0A3 

97 870F118A00000000004B000A,186 

98 110000000000058200000000,098 

99 000000006300000000000000,063 
100 000022000000000000000000,022 

101 00000000000000000000180A,022 

102 OOOOOOOOOOOOOOOOOOOOOOOO,000 

103 OOOOOOOOOOOOOOOOOOOOOOOO,000 

104 OOOOOOOOOOOOOOOOOOOOOOOO,000 

105 000000000000000000005555,OAA 

106 OOOOOOOOOOOOOOOOFFAA2AOO,1D3 

107 OOOOOOOOOOOOBFFF15000000,1D3 

108 OOOOOOSSFFFFOOOOOOOOOOOO.253 

109 OOAEBFAABFOOOOOOOOOOOOSD,333 

110 FFC3FF000000000004SDC30F,3F4 

111 OOAAOOOOOFOAFF6BOFO0OOOO, 230 

112 OOOS1BS5AA2FOOOOOOOOOOOO,14E 

113 33459FAA000000000000338A,27E 

114 450000000000000011000A8A,OEA 

115 OOOOOOOOOOOOOFOSOOSAOOOO,09E 

116 OOOOOOOF87DF118AOOOOOOOO,140 

117 0SC3000A1100000000003300,116 

118 00000000000000002200,0000,022 

119 OOOOOOOOOOOOOOOOOOOOOOOO, 000 

120 OOOOOOOOOOOOOOOOOOOOOOOO,000 

121 OOOOOOOOOOOOOOOOOOOOOOOO,000 


PROGRAMA I (CINTA) 


10 MEMORY 9399 

30 FOR X“37330 TO 37366:READ A*:POKE X,VAL<:NEXT 

40 MOOE 1:PRINT:PRINT:PRINT "Insert* cinta original y pulsa una tecla"i:CALL &E 


SO MODE OIINK O , O:BORDER OlLOCATE 6 f 12:PRINT "ARMY MOVES" 

60 LOAD "fc 

70 POKE &90EA,&D2:POKE &90EB,&91 
80 CALL 37000 
90 END 

i^; c ?l S *d : *' 6 - 0 ' U ' 0 - c °.CD,77,eC,21,0C,46,C0,83.BC,CD,7A,BC,6,0,n,<' 

cO,CD,77,BC,21,4C,3F,CD,83,8C,CD,7A,8C,c3,36,1 


PROGRAMA I (DISCO) 


PROGRAMA I (DISCO) 


10 OPENOUT "D":MEMORY 1309:CLOSEOUT 
20 LOAD "arml" 

30 CALL &BB18:PRINT CHR*<7>J 
40 LOAD "super.bin" , 16204+1000 
50 LOAD "ambu.bin",18140+1000 
60 CALL 37520 










CARGADOR DE CINTA 

5 REM ttt Cargador de cinta spirit* 
M 

10 QFENOUT'a*:MEMORY &BFF:CLOSEOUT 
20 MODE 0:BORDER 0:F0R i=0 TO 15:RE 
AO a:INK i,a:NEXT 

30 FOR i=42500 TO 42560:REA0 at:POK 
E i,VAL('4'+a*):NEXT 
35 L0A0'!spigraf*,4C00:PRINT CKR$<7 
)CHR*(7):CALL &BB18 
40 LOAO’UpIoad'lCALL 42500 
50 DATA 0,2,9,10,3,3,16,13,15,1.18, 
20,6,13,24,26 

60 DATA 3e,t9,32,5d,12,td,48,12,af, 
32,3d,8a,32,e2,8b,21,0,c,ll,d9,5a,0 
1,84,01,ed.bO,11,91,5e,1j7e,1,ed,bO 
,11,bl,68,1,14,1,ed,b0,11,89,6a,l,c 
2,0,ed,b0,ii,7d,78,l,c2,0,ed,b0,c3, 
8e,7b 


CARGADOR DE DISCO 

1 REM CAR6ADQR DISCO SPIRIT 
10 MODE 0:BORDER 0,‘ INK 0,0: INK 1,2: 
INK 2,9:INK 3,10:INK 4,3: INK 5,3: IN 
K 6,16:INK 7,13:INK 8,15:INK 9,1:IN 
K 10,18.INK U,20:INK 12,6:INK 13,1 
3: INK 14,24:INK 15,26 
20 FOR 1=42500 TO 42545:READ at:P0K 
E i,VAL(’4'+at):NEn 
30 0PENOUTV: MEMORY 4BFF: CLOSEOUT 
40 LOAD'spigraf*,4C00:PRINT CHR*(7) 
CHRt(7):CALL 4BB18 
50 L0A0*str*,4C000 
60 LGAD’villie 

70 POKE 48A30,0:PQKE 48BE2,0:CALL 4 

2500 

80 DATA 21,0,c,II,d9,5a,01,84,01,ed 
,bO,11,91,5e,1,7e,1,ed,bO,11,bl,68, 

I, 14,1,ed.bO,11,89,6a,l,c2,0,ed.bO, 

II, 7d,78,1,c2,0,ed.bO,c3,8e,7b 


LISTADO I 

1 2003000FFEFFOOE0073F25FF.479 

2 C0F6187F4AFF30FC20FF89FF,76B 

3 08FE41FF08FF84FE42FF10FF,71F 

4 .84FF82FF10FF42FF84FF10FF, 7E6 

5 42FFB2FF4FFF3AFFC9FFB0FF,8F0 

6 C6FF07FFC6FF00EFOF1F87FF.733 

7 80C00F1F27FF80C0061F67FF,5SF 

8 00C0O00F86FF8OEO061FESFF.SBD 

9 COFOOD 1FE5FFEOFOOD1FE5FF,7A0 

10 EOFOO11FE6FFE0F0020FE1FF, 796 

11 E0F0060F2FFFC0F8071F5FFF,64F 

12 B0F80F1FCFFF70FC0F3F26FF,683 

13 F8FC1F3F01FFF8FE1F3F8FFF,734 

14 FCFE1F3FFFFFFCFE0F3FFFFF,89C 

15 COFEOF1FF8FF0OEO071F83FF, 66B 

16 80COOOOF73FF80COOOO1F7FF,SF8 

17 OOC02003000FFEFFCOE0073F.415 

18 2SFFC0F8187F4AFF30FC20FF,707 

19 89FF08FE41FF08FF84FE42FF, 798 

20 10FF84FF82FF10FF42FF84FF.7E6 

21 10FF42FFB8FFCFFF3AFFC7FF,8D4 

22 30FFC6FFOFFF87FFOOEFOFIF,6AS 

23 27FF80C0061F67FFOOCOOOOP,4C0 

24 A7FF00C0061FE6FF80F00E3F,62D 

25 E5FFE0F81D3FE5FFF0F8003F,830 

26 ESFFFOF8011FE6FF70F8020F,74A 

27 EOFFFOF806OF2FFFEOF8O71F,708 

28 5FFFD0F80F1FC7FFB0FCOF3F,714 

29 20FF78FC1F3F07FFF8FE0F3F, 638 

30 8FFFFCFE031FFFFFFCFE041F,7C5 

31 FFFFFCFE0F3F07FFFCFE1E3F, 7 A3 

32 78FF78FE1C3FF0FC00FC003F,66F 

33 EOF8000020030000003E040E,248 

34 00001C7F040E00003E7F041E, 18C 

35 0000227FCC1F00001CFFOE9F, 294 

36 00017FFFOEDF0003FFFF8FFF,5FB 

37 010FFFFFC7FF0S1FFFFFD6FF.7CB 

38 0D1FFFFFD8FF0E1FFFFFBBFF.7E6 

39 0E3FFFFF8BFF1F3F7FFF7BFF,756 

40 1F7FBEFFFFFF3DFFD0FFBFFF,92F 

41 7DFFDDFFBFFFFDFFE8FFBEFF,AB9 

42 FDFFEBFFBEFFFBFFF7FFDCFP,B6E 

43 7OFFFFFF8OFE2OFB0OFFOOEC,7E5 

44 0173OOFF40EO0103FFFFC0E0,635 


45 O1O3FFFFCOEOO1O3FFFFC0FC,754 

46 0103FFFFE0F00107FFFFE0FB,7B0 

47 0307FFFFFOF80307FFFFFOF8,7E0 

48 0307FFFFF0F80307FFFFF0F8.7E0 
490107FFFFE0F81F0300000000,400 

50 000080000000000000000000,000 

51 000000000000000000000000,000 

52 000000000000000000000000,000 

53 000000000000000000000000,000 

54 00000000000000000000007E, 07E 

55 000000003CFF000000007EFF, 2B© 

56 000000007EFF000000007EFF, 2FA 

57 OOO0OOFD7EFFOO8F78FFBDFF,66C 

58 1EFF99FFBDFF99FF3DFPC3FF.907 

59 BCFFF2FFFFFF4FFFEFFFFFFF,AE4 

60 F7FF58FFFFFF1AFF13FF7EFF,8F3 

61 CSFF377F8DFFECFE377F81FF,859 

62 ECFE377F81FFECFE37FF8IFF,8C0 

63 ECFF63FFC3FFC6FF63FFC3FF,9F8 

64 C6FF71FFC3FF8EFF1DFFBDFF,9SC 

65 e8FF 16030000000000000000 ,100 

66 0001OOEOOOO0OOO3CCEOOOO0,284 

6701034CFEOOOOO1074CFE0003.297 

68 03FFD4FE010FF3FF94FE061F,68D 

69 BCFFB8FE0D1F7FFF38FC0B3F,699 

70 FFFF70FC153FF8FFF0F81B7F,837 

71 C3FFE0FC377F9SFFE8FC2F7F,87A 

72 2BFFE8FC377F5FFFD8FE2F7F.7A6 

73 6FFFFCFE177F5FFFFCFE1F3F, 7B4 

74 7FFFFCFE0F3F9FFFFCFE031F,780 

75 FFFFF0FE0O0700FF00F80O00,SEA 

76 OOOOOOOOOF031F3FFFFFFCFE,468 

77 103F00FF04FE133FFEFF74FE,611 

78 163F7FFF14FE143FF9FF74FE,6A2 

79 143FFDFF14FE143FFFFF74FE, 724 

80 1S3FFFFF14FE173FFFFF74FE, 72A 

81 173FFFFF04FE173FFFFF34FE, 6DC 

82 133FFEFF34FE103F00FF04FE, SD1 

83 1F3FFFFFFCFE033F80FFEOFE.7FS 

84 180154FE54FE54FES4FE54FE, 6B3 

85 54FE7 CFE5CFE38FE387C107C, 69C 

86 1038103810381038107C187C, 240 

87 387C187C287C187C287C107C, 3B0 

88 003818040000010300800000,0D8 

89 0000010FOCE00000000006IF, 115 

90 COFOOOOOOOOOOAIFAOFOOOOO, 369 

91 OOOOOC7F60FCOOOOOOOOSOFE ,315 

92 18FE0000003E50F8143E007C, 36A 

93 1CFF60FF0CFF38FF7FFFFFFF, 838 

94 FFFFFEFFC0FFC0FF00FF03FF.8BA 

95 BOFFOOFFOOFFOl FFD2FF24FF, 771 

96 D2FFCSFFADFF5BFF2DFF2BFF, 8F1 

97 A8FF8AFF65FF11FFAAFFBAFF, 906 

98 E5FF55FFAAFFBAFF29FFS5FF ,916 

99 88FFBAFFE9FF51 FFAAFFBAFF, 9AA 

100 69FF1SFFAAFFDBFF2DFF3SFF. 8SF 

101 DSFF24FFD2FFCBFF80FF00FF ,910 

102 00FF01FFC0FF00FF00FF03FF, 6BE 

103 7FFFFFFFFFFFFEFFOOFFOOFF.975 

104 OOFFO0FF2OO3OOFFOOFFOOFF, 51E 

105 FFFFFFFFFFFFFFFF79FFFFFF, B6E 

106 FEFFB6FFFFFFFEFFA9FF7FFF, AD3 

107 FEFF89FF7FFFFEFFE6FFFFFF.AE3 

108 E5FF01FF17FFDAFF6AFFEBFF,926 

109 A2FFBEFF5SFFDAFFEEFFSSFF,99C 

110 CAFF8AFF55FFB2FF6AFF4BFF ,90A 

111 C0FF9SFFB7FFFFFFFFFFFFFF, B10 

112 00FF34FF00FF0E1F34FF70F8, EF9 

113 OF 1FB5FFF0F8071FB5FFE0F8,77C 

116 OOFF1FFFFEFFOOFFOOFFFOFF,807 
116 357F7FFFFCFE207FFFFFF4FE, 8BB 
117217F7FFFECFE227FFFFFF4FE,899 
118107F7FFFE8FE0C3FAFFFFOFC,7D8 

119 021F5FFFCCF8000700FFOOEO,51D 

120 0307FFFFCOEOOOOOOOOOOOOO,3A8 



















CARGADOR DISCO 


10 REM CARGADOR DISCO CRAY 5 
20 MODE 0:FOR 1=0 TO 15: READ b:INK 
i,b:NEXT:BORDER 0 

30 MEMORY 10000:LOAD"c rayO”:ON ERRO 
R SOTO 40:LQAD'trayl* 

40 MEMORY 891:LOAD'crayl* :MODE 2: IN 
K l,0:L0A0*tray2':P0KE &861A,20l:P0 
KE &89C3,0:FQR i=49F00 TO &AOCA: REA 
0 at: POKE i.VAU'i'+a$): NEXT 
50 DATA 0,26,20,14,6,3,24,8,15,4,18 
,9,14,1,13,0 

60 PRINT CHRt(7)CHRt(7):CALL 4BB18: 
LOAD* c raygraf',&E000:CALL 49F00 
70 DATA 21,0, eO, 11,3e, 46 ,1,80,1, ed, 
bO,11,3e,64,1,c0,00,ed,bO, 11,7e,69, 

I, 80,I,ed,b0,ll,be,6b,l,c0,0,ed,b0, 

II, 3e,73,1,cO,00,ed,b0, 21,be,44,11, 
bf,44,1,7f,1,36,0,ed,b0,c3, 29,7f 


por calcetines, camisetas, etc. 

Para poder cargar estos nuevos 
graficos hay que utili/ar el 
Cargador Universal y copiar el 
listado I mediante la opcion 1 A1 
terminal' se debe salvar en cinia 
con la opcion «Salvar Binario» 
con el nombre Crajgraf 

A continuacion copiar los 
cargadores de cinta o disco. 

Ejecutar estos cargadores con la 
cinta o disco original del juego. 

A1 acabar la carga se oira un 
beep, colocar la cinta o disco que 
contema el fichero Craygraf, 
salvado anteriormente, y pulsar 
una tecla. Cuando se hayan 
cargado los nuevos graficos 
comenzara el juego. 





























in 


1 O03064CCCCCCCCCC0QD8FOFO,740 

2 F0A40C4COOD8FOFOFOFOFO4C.7CO 

3 OOD8FOFOFOFOF04COOD8FOFO,88C 

4 F0F0F04C00D8F0F0F0F0B44C,804 

5 00D8F0F0F0F0B4E400D8F0F0.8E8 

6 FOFOB4E40ODSFOFOFOFOB4E4, 9A8 

7 00D8F0F0F0F0B4E400D8F0F0,8E8 

8 F0F0E4E4C0D8F0F0F0F0B4E4,3AS 
3 00D8F0F0F0F0F0E400D8F0F0,924 

10 FOFOF0E400D8F0FOFOF0F04C,388 

11 00D8F0F0F0A40C4C003064CC,604 

12 CCCCCCCCOOOOOOOOOOOOOOOO,330 

13 003064CCCCCCCCCC00D8F0F0,748 

14 F0F0F0E400D8F0F0F0F0F0E4,A20 

15 00D8F0F0F0F0F0E400D8F0F0,324 

16 F0F0F0E400D8F0F0F0F0B4E4,3E4 

17 OOD8FOF0F0F0B4E400D8F0F0,8E8 

18 FOF0B4E400D8FOFOF0F0B4E4,9A8 
13 00D8F0F0F0F0B4E400D8F0F0.8E8 

20 F0F0B4E400D8F0FGF0F0B4E4,9A8 

21 0OD8FOFOFOFOB4E4OOD8FOFO,8E8 

22 F0F0F0E400D8F0F0F0F0F0E4,A20 

23 00D8F0F0F0F0F0E400D8F0F0,324 

24 FOFOFOE4COD8FOFOFOFOFOE4,A20 

25 00D8F0F0F0FOF0E400D8F0F0.924 

26 F0F0F0E400D8F0F0F0F0F04C,388 

27 OOO8FOFOF0FOFO4COOD8FOFO,88C 

28 F0F0F04C00D8F0F0F0F0F04C,8F0 
23 OOD8FOFOFOFOF04COOOSFOFO,880 

30 F0A40C4C003064CCCCCCCCCC.67C 

31 0000000000000000003C3C3C,0B4 

32 3C3C3C3C003C3C3C3C3C3C3C,234 

33 00000000005400A800000000,OFC 

34 0041FC2800000000005496A8,2F7 

35 000000000041FC2800000000,165 

36 005496A8000000000041FC28,2F7 

37 000000000041038200000000,186 

38 004103820000000000410382,300 

39 000000000041C38200000000,186 

40 00410382000000000041C3B2.30C 

41 000000000041C38200000000,1B6 

42 0041C382000000000041C382,30C 

43 OOOOOOOOOOC3C382OOOOOOO0,208 

44 0003C38200000000C3C3C382,4D3 

45 00S4E9C3C3C3D6A800FCE9C3,7AC 

46 C3C3FCA800FCE9C3C3D6FCA8,90F 

47 00FCE9C3C396FC0000FCE9C3,7AS 

48 C37CFC000054E9C3C3FCA800.6A2 

49 000000FC00000000000000S4,150 

50 A 8 OOOOOOOOOOOOOOFCOOOOOO. 1A4 

51 0000000054A8000000000000,OFC 


52 00FC000000C000000054A800,1F8 

53 OOOOOOOOOOOOFCOOOOOOOOOO,OFC 

54 000054A800000000000000A8,1A4 
SC 0000FCFCFCFCFCF300S0FCF0,80F 

56 F0F0F0F00050A40C0C0C0C0C,4F0 

57 00500C0C0C0C0C0C0000F00C,194 

58 0CF0A40C0000A40C58F00C0C,SBC 
S3 0000500CA40C0C08000000F0,210 

60 OCOC0CO8OOOOOOOOA4OC4C88,1B0 

61 OOOOOOOOSOOC4COOOOOOOOOO,0A8 

62 S0A44C0000000000500C4C00, 1E8 

63 OOOOOOOOSOA4CCOOOOOOOOOO,ICO 

64 0C0COC8S000000O40C0C0C08,ODC 

65 000000000000000000000000,000 

66 000000000000000000000000,000 

67 000000000000000000000000,000 

68 000000000000000000000000,000 

69 000000000000000000000000,000 

70 OOOOOOOOOOOOFCFCFCFCFCA8,594 

71 000OFCFCFCFCFCF3005OF0F0,80F 

72 FOFOFOFOOOSOA40COCOCOCOC,4F0 

73 OOSOOCOCOCOCOCOCOOOOFOOC,134 

74 OCFOA40COOOOA40CSBFOOCOC,3BC 

75 0000S00CA40C0C08000000F0,210 

76 OCOCOCO60OOOO0OOA4OC4C88 IBO 

77 00000000500cac0000000000,0fll8 

78 50A44COOOOOOOOOOSOOC4COO,1E8 

79 0000000050A4CC6000000000,ICO 

80 0C0C0C880O0OGO04OC0C0C08,ODC 

81 OOOODEOOOOEDOOOOOOS4CFA8,396 

82 54CFAB000054CFDEEDC7A800,62B 


83 0045C3CFCBC3DE0000EDC3C3,6B6 

84 C3C30E0054CBC3C3C3C3C7AB,7FE 

85 54CBC3C3C3C3C7A84SC3C3C3,828 

86 C369C38A45C3C3C3B63CC38A,716 

87 45C3C3C3963CC3A84SC3C3C3,759 

88 C369C3A845C3C3C3C3C3C3A8,816 
83 45C3C3C3C3C3C3A845E10202,849 

90 E1C3E1A84SF0D2D2D2D2D2A8,924 

91 45FOD2D2FOC2F0A645E1FOD2,91B 

92 D2D2D2AB45E1F0D2E1D2D2A8,933 

93 45C3C3C3C3C3C3A845C3C3C3,SOD 

94 C3C3C3A845C396C369C3C3A8,7E9 

95 45C33C966369C3A845C3C3C3,6AS 

96 C3C3C3A845C3C3C3C3C3CSA6,870 

97 3C3C3C3C00003C3CB43C0000,258 

98 3C3C003C2CA43C3C00003C4C,284 
93 3C3CA4S83C3C586C8C8C3C3C,4A0 

100 58583CCC444C4C4C3C3CCC88,4AC 

101 444G4C4C4C4CCC88444C4C4C,43C 

102 4C4C8C88444C4C4C4C4CCC88,4C0 

103 444C4C4C4C4CBC8844E44C4C,494 

104 4C4CCC8844E44C4C4C4C8C88,558 

105 44E44C4C4C4C8C8844E44C4C,S2C 

106 4C4C8C8844E4E44C4C4C8C88,5B0 

107 D8D88CCCCC4CCC88DBD88CCC,87C 

108 CC4C4CCCD8D88C88CC4C4CCC,724 

109 D8D88C88CC4C4CCCD8D8CC88,7F8 

110 CC4C4C4CD88CCC88CC4C4CCC,698 

111 D88CCC00444C4CCCD88CCC00 608 

112 44CC4C4CF0B43C0044D8B43C,594 

113 000000000000000000000000,000 



















K.Y.A. 

Verne, destruye 
los muros 

Casa creadora: LORLCLELS 
Proein, S, A. Tel. 276 22 08 

Cimta: 995 ptas. Disco: 2.395 ptas. 

E l objetivo de este juego consiste en veneer en 
sucesivos enfrentamientos al ordenador o a 
adversaries humanos. Para veneer en cada 
enfrentamiento es necesario acertar con el disparo 
de nuestra nave a la enemiga einco veces. El 
decorado es diferente en cada pantalla, aunque 
en todas esta constituido por muros de distintas 
caracterfsticas. Asf, hay ladrillos que se pueden 
destruir eon balas, otros en los que las balas 
rebotan (y si no tenemos cuidado podemos 
destruirnos a nosotros mismos), otros que quitan 
munition y otros que la reponen. Lo mas 
destacable de este juego es la posibilidad de 



redefinir todas las caracterfsticas. Asf, podemos 
cambiar desde el color de la pantalla al tipo de 
adversario que queremos e, incluso, podemos 
construir las pantallas a nuestro gusto y despues 
salvarlas en cinta. Poco mas que comentar de 
este juego, apropiado sobre todo para que los 
mas pequenos de la casa celebren sus 
competiciones particulares. El movimiento es lo 
mejor conseguido, pues es suave y rapido, 
mientras que los graficos son muy simples: 
unicamente hay diversos tipos de ladrillos y 
varios tipos de nave. El juego carece de musica, 
y los efectos de disparo y explosion no son muy 
sofisticados. 


Originalidad 

El El El El El 

Graficos 

El El El Q Q 

Movimiento 

El El El El Q 

Sonido 

El El El □ □ 

Dificultad 

El El El El Q 

Adiccion 

El El Eli i Cl 

Horrible 
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/ / / /Bi 
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METROCROSS 

Carrera 
de obstaculos 

Casa creadora: U.S. GOLD 

Erbe Teh 314 18 04 

Cinta: 875 ptas. Disco: No hay version 

N os encontramos ante un juego en el que 
nuestra mision no es preservar la seguridad 
de nuestra galaxia, ni luchar contra interminables 
hordas del mal, ni tampoco debemos rescatar 
ninguna princesa de garras de perfidos 
personajes. En Metrocross unicamente tenemos 
que procurar completar el mayor numero de fases 
en el menor tiempo posible. Esto lo podemos 
hacer saltando, corriendo o patinando. Hay 
ciertos obstaculos que difieultan nuestra mision, 
como latas de Coca-Cola (!), vallas, tramoS de 
pista ralentizantes, losas repletas de acido, etc. 
Pero tambien contamos con la ayuda de 
trampolines, que nos permiten avanzar muy 
rapidamente y sorteando gran numero de 
obstaculos, monopatines, que no se frenan en los 
tramos ralentizantes, dado que aumentan nuestra 
velocidad o detienen momentaneamente el 
tiempo, etc. Metrocross, como veis, es un juego 
con un tema bastante original. El movimiento 
esta bien realizado, con mucho realismo, sobre 
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SLAP-FIGHT 

De nuevo 
en combate 


Originalidad 

ED ED ED ED □ 

Graficos 

El ED El ED □ 

Movimiento 

ED ED ED ED □ 

Sonido 

El El El ED ED 

Dificultad 

ED El El ED ED 

Adiccion 

El El El ED El 

Horrible 

VVUn rollo /// Pasable 


////. Bueno V' V' V V Muy bueno 


todo en las cafdas o saltos de nuestro personaje. 

Graficamente, sin embargo, resulta un poco 
tosco, aunque hay que tener en cuenta que esta 
elaborado en modo 0, el de menor resolution El 
juego es simple pero entretenido, pues a medida 
que vamos completando fases, descubrimos 
nuevos objetos que nos obstaculizan o ayudan, lo 
que nos incita a seguir jugando. 


D e unos meses a esta parte, se viene 

observando en el mercado de software una 
tendencia bastante generalizada a la production 
de juegos en los que lo primordial sea la action, 
por encima de cualquier otra caracterfstica. Slap- 
Fight, adaptado de las maquinas recreativas, es 
un nuevo juego de estas caracteristicas. Debemos 
conducir nuestra nave a traves de un territorio 
hostil, procurando adentramos lo mas posible y 
eliminando el mayor numero de enemigos. 
Introduce una novedad importante: la posibilidad 
de cambiar de armamento a medida que se 
desarrolla la partida. Cuando matamos a algunos 
de nuestros enemigos, aparece bajo ellos una 
estrella, que debemos recoger si queremos 
aumentar las prestaciones de nuestra nave. A1 
recogerla podemos observar como una pequeha 
tlecha apunta, sucesivamente,^ a cada una de las 
opciones con que contamos. Estas son: 

Speed. Pulsando la barra espaciadora veremos 
como nuestra nave se mueve mas deprisa. 

Shot. Nos permite volver a seleccionar los 
disparos de ametralladora. 

Side. Si la elegimos, nuestra nave disparara 
tambien hacia los lados. 

Wing. Si tenemos laser, veremos como este se 
duplica en dos rayos. Si seleccionamos esta 
option por segunda vez, se anadiran a nuestra 
nave dos pequenos modulos laterales, que 
tambien disparan, por lo que amplian el campo 
de barrido de nuestros disparos. 


Casa creadora: IMAGINE 

Erbe Tel. 314 18 04 

Cinta: 875 ptas. Disco: No hay version 
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Bomb. Gambia nuestros disparos por bombas, 
que provocan una explosion de gran magnitud 
cuando impactan con un enemigo. 

Laser. Este tipo de disparo presenta la ventaja 
de no inutilizarse aunque impacte con una nave 
contraria. 

H. Miss. Esta option selecciona misiles 
dirigidos por el calor. Son muy lentos, pero 
nunca fallan. 

Shield. Seremos inmunes a los disparos 
enemigos durante unos instantes. Resulta 
interesante tener la flecha apuntando a esta 
option y, en un momento de dificultad, 
seleccionarla. 

Como hemos visto, las posibilidades con que 
podemos aumentar la eficacia de nuestra nave 
son variadas, lo que da un poco de dinamismo al 
juego, que sin esto resultaria monotono. 

Slap-Fight, en su aspecto grafico, esta bien 
realizado, aunque el tipo de vision desde arriba 
no da muchas facilidades para el lucimiento. T , a c 
naves, tanto la nuestra como las enemigas, son 
muy pequehas, y las balas que nos lanzan son 
tan s61o un diminuto punto, por lo que muchas 
veces, sobre todo en las primeras partidas, 
notamos su presencia cuando perdemos una vida. 
El movimiento resulta un poco lento, aunque con 
la option speed podemos paliar esto en parte. 


Originalidad 

liilaa 

Graficos 

E) GO El E) □ 

Movimiento 

eieieioei 

Sonido 

E) E) E) □ El 

Dificultad 

E) E) E) E) El 

Adiccion 

El El El El □ 
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SIAi RAIDERS II 

hnrasores estekues 

Casa creadora: PROEIN, S. A. 

Proein, S. A. Tel. 276 22 08 

Cimta. 880 ptas. Disco: 2.39 5 ptas. 

S tar Raiders II es otro tipico juego de «matar 
marcianos». Para ello contamos con una nave 
equipada con tres tipos de armas, que 
emplearemos segun el enemigo a que nos 



nuestra energia y, ocasionalmente, inutilizaran 
alguno de nuestros sofisticados dispositivos: 
sistema ldser, canon lonico, motores, etc. Para 
repostar energia y armamento podemos dirigimos 
a alguna de las estaciones espaciales dispersas por 
el sistema, pero debemos tener cuidado en no 
acercamos demasiado al Sol, que se halla en el 
centra del mismo, pues esto seria fatal para 
nuestra nave. 

En Star Raiders II se ha elegido un sistema 
de juego que intenta simular las tres dimensiones, 
pues nosotros vemos en la pantalla del ordenador 
lo que veriamos si estuvieramos dentro de la 
nave. De este modo, podemos observar como 
nuestros enemigos aumentan de tamafio a medida 
que se van aproximando a nuestra position. Este 
metodo de presentation, que en otros juegos ha 
dado gran resultado, no es aprovechado del todo 
por este. A nosotros nos da la impresion de que 
hay pocos tamanos intermedios, y vemos «crecer» 
repentinamente a las naves enemigas. El color es 
pobre, asi como la definition de los graficos, pues 
la mayorfa de las naves espaciales no aparecen 
«rellenas», dando la impresion de haber sido 
fabricadas con trozos de alambre. Aparecen muy 
pocos contrincantes al mismo tiempo (tres a lo 
sumo). 

Contamos con un mapa informativo de nuestra 
Sistema Solar, y podemos dirigirnos a la zona 
que deseemos. En este juego la tactica es 
importante para la consecution de nuestra 
objetivo. Lastima que esta idea no se haya 
aprovechado con unos graficos mas cuidados y 
veloces. La melodia de presentation es buena, y 
los sonidos propios del juego (disparos, 
explosiones...) estan bien conseguidos. 


Originalidad 
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Graficos 
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Movimiento 
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Jhsta seccion esta dedicada a todas las compras, ventas, clubs de 
usuarios de Amstrad, programadores y, en general, cualquier clase de 
anuncio que pueda sewn de. utilidad a los lectores. Todo aquel que lo 
desee puede enviarnos su anuncio, mecanografiado, . HOBBY 
PRESS, S A. AMSTRAD Semanal. Apartado de Correos 232 


Alcobendas- Aiadrid. 

IABSTENERSE PIRATAS! 

Estoy interesado en 
intercambiar programas, trucos 
y cualquier tipo de tnformacion 
en general del Amstrad PC 
1512 o compatible IBM. Tengo 
entre otros: Cobol, Turbo- 
Pascal, Wordstar, Dbase III, 
Summer Games II, etc. Llamar 
al tel. (96) 544 89 63. O 
escribir a Julio Ruiz Reche. 
Ramon Vicente Serrano, 12, 4, 
2. 03206 Elche (Alicante). 


Vendo Amstrad CPC 6128 
F.V, con impresora Admate 
DP-80 LQ y el cable de 
conexion al ordenador, raton 
Starmouse con software, cable 


conexion cassette y 20 discos de 
3 pulgadas con los mejores 
programas comerciales de 
utilidad y unos 100 juegos (los 
mas actuales), todo comprado 
en enero 1987. Hardware 
valorado en 150.000 ptas. 
Software valorado en mas de 
250.000 ptas. Vendo todo por 
140.000 ptas. Tambien 
contactaria con usuarios del PC 
1512. Tel. 268 26 65. Andres 
Comidas. 


Vendo Amstrad CPC 6128, 
en perfecto estado, con monitor 
color y umdad de disco, 
manuales y revistas, discos con 


Mercado 

CCMUN 


juegos y utilidades. 
Opcionalmente: impresora 
DMP-2000 (Amstrad). Nueva y 
de muy altas prestaciones. Por 
100.000 ptas (Impresora 35.000 
ptas.). Interesados llamadme al 
tel. 747 33 47 de Madrid. Mario 
Pons. 


Vendo ordenador Amstrad 
CPC 6128, con monitor en 
color, por 90.000 ptas, incluyo 
discos de sistema operativo y 
utilidades del sistema, manual 
en ingles y en espanol, regalo 
libro acerca del sistema 
operativo CPM Vendo 
programas de utilidad, de 



“Sabado Chip”, de 17a 19h. 















dibujo y diseno, procesadores, 
compiladores, juegos (en total 
16 a 400 ptas. el disco), 
tambien una coleccion de 
revistas (AmstracI User, Tu 
Micro Amstrad) a mitad de 
precio de portada, volumenes 
de Gran Biblioteca Amstrad a 
300 ptas y discos virgenes de 3 ! 
de la marca AMSOFT a 700 
ptas. (tengo veinte). Llamar a 
Juanjo, tel. (96) 333 91 89 de 
Valencia, o escribir a Juanjo 
Ripolles Ortiz Pza Manuel 
Sanchis Guarner, 6, 1, 1 46006 
Valencia. 


Vendo ZX Spectrum de 48 
K, junto con su respectivo 
transformador, por 7 000 ptas. 
Interesados llamar al tel. (96) 
242 35 15 o escribir a Rafael 
Castell Llacer. Avda. Pais 
Valeciano, 26. 46680 Algemesi 
(Valencia). 


Vendo, compro o cambio 

juegos y programas para CPC 
464. Vendo o cambio revistas 
Amstrad User y AMSTRAD 
Semanal . Escribir a Jose Luis 
Toledo de Dios. Brigida Alonso, 
7, l.° A. 28038 Madrid. 
Contesto siempre. 


Intercambio programas para 
ordenadores Amstrad CPC 464 
y 6128, tanto en cinta como en 
disco. Los interesados deben 
mandar su lista a Carmelo 
Guzman de la Row Avda 
Andalucia, 25. 111560 Barbate 
(Cadiz). O llamar al tel. (996) 
43 03 35. Prometo contestar a 
todos. 


Compro o cambio por 

programas de todo tipo el 
manual de todas las rutinas del 
Firmware, es decir, el Firmware 
Specification Manual Soft 158. 
Los interesados llamar al tel. 


(965) 566 19 75 (si es posible 
por las mananas). Si los 
interesados son de la provincia 
mucho mejor. Pedro Navarro 
Miralles. San Juan, 31, bajo 
dcha. San Vicente (Alicante). 


Vendo o cambio programas 
para Amstrad CPC 464. 
Interesados, dirigirse a Manuel 
Francisco Barrios Perez Olmedo 
2-4, l.° D,, 37003 Salamanca. 
Precio a convenir. 


Cambio juegos, todos 
funcionan perfectamente, 
grabados en disco nuevo por 
primera vez. Absoluta seriedad. 
Escribir a: Francisco Fuentes. 
Pintada Baja, 21. 23440. Baeza, 
o llamar por tel.: (953) 74 01 94 
de las 4 de la tarde hasta las 12 
de la noche. 




Todos los sabados, de 5 a 
de la tarde, en ‘ Sabado Chip”. 
Dirigido por Antonio Rua. 
Presentado por Jose Luis 
Arriaza, hecho una 
computadora. Dedicado en 
cuerpo y alma al ordenador, 
y a la informatica. Haciendo 
radio chip... estilo Cope. 
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Software tNnotAOO 
3 PROGRAM AS BN UNO 


if omcmopm 
Lmcukii m | 
PKOGRAMAtfON LISP 
COMPLETO £N CiNTA 
OE CASSETTE 


IMPRESORAS. 
COMO HACER LA 
MEJOR ELECCION 

Atbnciona nubstro 
Fabuioso Conwrsq- 
moss GANAR UN 
CPC-6138 CON 

SOIO CARGAR IA CiNTA 


LO MAS ESPECIAL 
DE AMSTRAD 


Historia de la 
Informatica. 
Como trabaja 
un 

programador. 
Todos los 
comandos rsx. 
La informatica 
en casa. Los 
mejores 
superjuegos 
del mercado. 


Todas las 

impresoras del 

mercado. 

Software 

integrado: 

Fidicom, un 

paquete 

enteramente 

profesional. 

Paginacion de 

memoria. 

Inteligencia 

artificial. 


J. 




Especial 
Juegos: Pokes 
para todos. Lo 
mejor del 
mercado en 
joystick. 

Juega con 
Forth. Serie 
oro: Juego de 
ajedrez. 


Desvelamos 
los secretos 
de los mejores 
juegos de 
Amstrad 
Animator, un 
programa 
apasionante. 
CAD/CAM, lo 
mejor del 
software 
nacional. 


Robotica. La 
segunda 
revolucion de 
la informatica. 
Forth, la 
sustitucion del 
codigo 
maquina. El 
juego de la 
vida. El 
mundo de los 
Plotters. 
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L as pantallas iniciales se pueden pasar 

pulsando tecla, excepto si se nos pide la 
cantidad inicial de dinero. El ordenador 
indica el numero de cartas a cambiar en el 

tapete. 

En la linea inferior se nos indica quien es mano y 
en la linea superior se nos dan las instrucciones a 


— Preguntara lo que queremos apostar o nos dira 
lo que nos falta para igualar la apuesta del 
ordenador, la cual puede ser superada. 

— Una vez que se indique quien gana (en el 
centre del tapete), pulsar tecla. 

Hay que tener en cuenta que el ordenador no 
ensenara sus cartas si pierde. 


seguir: 

— Si pulsamos «X» cuando se indique, el 
ordenador nos asesorara que cartas cambiar. Una 
vez hecho, pulsar tecla... Si no se requiere ayuda, 
pulsar Return. 

— Preguntara si la carta N quiere ser cambiada. 
Si es asi pulsar «S» y se borrara dicha carta. Si no, 
pulsar Return. 


Si se usa cinta y se produjese el error «Memory 
Full» (cosa casi imposible) se grabaran los datos, a 
continuacion se rebobina la cinta y se pulsa tecla. 

Si no se quiere ir a alguna apuesta, pulsar Return 
dos veces. 

A1 principio puede parecer facil ganarle, pero mas 
adelante vereis que no es asi. 



Tablo de variables 


Estrudura del program* 1 


nbre$ 


w 

(i) 

SO) 

SO) 

ilenl 0 ) 
ilenlS 0 ) 
alen2 0) 
bien2$ 0 ) 
luntl y P ont11 
3 unt2 y punt 12 


Maestro nombre. 

Nivel de ioego; hay ^ 

Dinero que posee el 

ordenador 
Nuestro dinero. 

Switch de quien es mono. 

Su valor es 1o l. 

Numero de la carta/s 
Palo de la carta/s. 

Juego del ordenador en 
una carta. 

Muestro |uego en una 

PalcTdel ordenador en 
una carta 
Palo de una carta 

Carta^numero) que no 
descarta el prijenador. 

Carta (palo) que no 

Carla S (poE)''de la que no 
nos descarta mos. 

Puntuaciones para el 

luego del ordenador. 
Puntuaciones para 

del ordenador en una 

Acumulador de apuestas 
noestras en una mano. 
Tofal anostado en una 
mano. Las demas 
variables como «veces», 
ocartasn... son 

contadores 
comparadores. etc 


10-480 
490 580 
590 840 

850-1100 
1110 2090 
2100-2500 

25102920 
2930-3210 
3220-3430 
3440-3570 
3580 3850 

3860-4190 
4200 4320 

4330-4480 
4490 5170 


Reparto de cartas inicial en 

Cuerpo principal del programa. 
Descarta e ordenador. 
Puntuacion para el ,uego del 

ordenador 
Puntuacion para m ' 

- 

Gestibn del posible error de 

Memory fufc (improbable) 

ffideayu P d e aparacambio 

de cartas det usuano, por 
parte del ordenador. 
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10 REM »)»»»»»»»»» PRESE 
NTAC10N ¥ DEFINICIDN OE CARACTERES 
PARA PALOS 
20 MODE 0 

30 ON ERROR SOTO 4200 

40 RANDOMIZE TIME 

SO BORDER 3,5 

60 PAPER 10:PEN 14 

70 LOCATE 6,12:PRINT "POKER" 

80 V 1NDQUI)3,1,20,13,25: PENS3,4: PAPE 
R#3,1!:CLS#3 

90 VINQDV84 1,20 1,11:PENI4,0:PAPER 
#4,1:CLS#4 

100 L0CATE#4,3,5:PR!NTI4 *F 0 R A S 
T E R 0' 

110 L0CATE»4,S,7:PRINT»4 *te echas 

un" 

120 L0CATES3,9 5:PRINT#3,"FOR* 

130 LDCATE#3,4,7:PRINTI3 'NACHO JIM 
ENEZ* 

140 LDCATEH3, 9,8:PRINT83,"(c)* 

ISO ENV 1,1,15,1,10,1 1,0 1 12,-1, 

8 , 2 ,- 1,20 

160 SOUND 1 200,100 15 1 

170 COSUB 400 

180 PRSNTO4," JUGADAS* 

190 PRINTS4,’===="====* 

200 PRINTI4 * - pareja’:PRINTI4," 
doble pareja':PRINT#4,* - trio* 
PRIjp4,‘---«calera* < ^8li!T»4,“ 
o or*:PR!NTI4 ’ • uH'iPR! 84 
,* - poker':PRINT84 - escaiera 

210 L0CATEI3,4,5/RINTI3, 

AT IMA:': LOCATE ,B,7:P| 
f 

220 G0SU8 4 
230 LDCAT 4 3,5:PRl 


2B0 IF LEN(no»b, 

290 IF 

DUE A«UI*:PRI 
3,'LOS ASES NO GANAN.*:P 
3-PRINT#3.*SU VALOR ES OE 1*:P 
RINT83IPRINT83 

330 SOSUB 400 

340 PRINTS4," NIVEL*:PR]j 
=====*:PRINTS4: 
toso*:PRINT84,*2 
:PR1NT»4 *3.- ave)\ 

RINT84 

350 L0CATES3,5 7:IN, 

:“.navel:IF mveKl 
CLS43:60T0 350 
|60 IF mvel=l OR 
3,1 9::PRINTS3,'CON 0 
AMOS*:L0CATE#3,7,11: 

:dirr2=dinl:IF dml<3000 OR 
00 T !N 360 

370 IFuiivel=3 THEN dinl=l! 
=UNT(RND*!5)+1)*1COO 
380 GOSUB 400 
390 GOTO 4J0 

400 L0CATE#4,2,l:PRINTI4,* 

6)’- 1 


410 LDCATE84,16,1IPRINT84,*-'CHR$(2 
29)*-* 

420 LDCATEI3,2,13:PRINT83,*-*CHRt(2 
2B)*-" 

430 L0CATE83,16,13:PRTNT83,‘-*CHR4f 
227)’-* 

440 ENV 2,1,15,1,1,-3.2,1,0,3,1,1,3 
,1,-13 

450 BOUND 1,667,50,15,2,0 
460 CALL J8818 

470 LCCATE83,1,12:LOCATE#*,1,12:FOR 
xM TO 25;PRINTN3:PRINTN4:NEXT 
480 RETURN 
490 SVM80L AFTER 0 
500 SYMBOL 240,0,24,24,60,60,126 12 

6.255 

510 SYMBOL 241,2®,255,126,60,24,24 
,60,255 

520 SYMBOL 242,66,102,231,231,255,2 
55 255,255 

530 SYMBOL 243,126,126 60 60,24,8,0 
,0 

540 SYMBOL 244,0,0,24,24,60,60,126, 
126 

550 SYMBOL 245,255,255,126 126,60,6 
0,24,24 

560 SYMBOL 246,60,60,60,60,60,255 2 

55.255 

570 SYMBOL 247,255,255,255 24,24,24 
,255,0 

5B0 MODE l:CLS:80R0ER 9 
590 juegol=l 
SOTO 4330 

610 ltfS^»»»»»»»»»> EMPIEZ 
A EL jUEGT 
620 REM 

630 LOCATED, 15 IB: IflT*l,dinl:LCC 
ATE«l,l,4:PRINT#l,din2:ir juegol=l 
THEN LOCATE 23,25:PRINT'MAN0 
SE LOCATE 10,25:PRINT*MAN0 TU 
640 REM »»»»»»»»»» CARTAS 
ORDENAODR <«««««««< 



):aiar2=(IN 


890 IF juegol=l THEN GOSUB 2930 
CAMBIO CARTAS YO (ICAH8IY0) 

900 IF juegol=l THEN GOSUB 4020 
: 'ENSE\A MIS CARTAS (KASIGNA! 

910 IF juegol-1 THEN punt2=0:GOSUB, 
2510 I'PUNTUACION PARA MI JUEGO (M 
COPUNAP) 

920 IF juegol=2 THEN GOSUB 2930 : 

CAMBIO CARTAS YO (ICAMBIYD) 

930 IF juegcl=2 THEN GOSUB 4020 
:'ENSE\A MIS CARTAS (KASIGNA? 

940 IF juegol=2 THEN punt2=0:GDSlf 
2510 I'PUNTUACION PARA MI JUEGO 
COPUNAP) 

950 IF jusgol=2 THEN GOSUB 1110 
GAMBIA CARTAS EL DROENAOOR (CAM! r F 

> 

960 IF juegol=2 THEN punll=0:G0Sl 
2100 : 'PUNTUACION JUEGO DROENAOOR 
(MCOPUNAP) 

970 ap 1=0: ap2=0: suta 1=0," suna2=0: apu 
=0 

980 IF juego!=2 THEN GOSUB 3440:IF 
ap2<>0 THEN GOSUB 3220:G0T0 1040 Et 
SE punt2=l:puntl=0:SOTO 1080 
990 IF juego!=l THEN GOSUB 3220: IF 
apiOO THEN GOSUB 3440:GOTO 1000 EL 
SE puntl=i:putit2=0 
1000 UH1LE 5u*a!Osuisa2 AND (apiOO 
AND ap2O0) 

1010 GOSUB 3220:'SUBE EL DROENAOOR 
1020 GOSUB 3440: SUBO YO 
1030 VEND 

1040 WHILE suaal0susa2 AND (apiOO 
AND ap2O0) 

1050 GOSUB 3440: SUED YC 

1060 GOSUB 3220:'SUBE EL DROENAOOR 

1070 VEND 

1080 GOSUB 3580: COMPARACION DE PUN 
,.TUAC10NES 

juegol=l THEN juegol=2 ELSE 

g°i 

1100 GOTO 4^!: 'SALTA AL PRINCIPID 
PARA LA SIGUllNTE HANG 
1110 REM CAHpiO DE CARTAS PARA OROE 
NAOOR CON gSATRO 0 MAS CARTAS CON M 
ISMD PAL! 

x-1 TO 5\ 

eni$(x)=” 


1360 vblenH■j=0:vblenl$Cx)=*' 
1370 NEK 
1380 yetes=0 
139©“ 'REM ttttt 




»»»»»>, 

CARTAS PARA MI <M« {«K«« 

<«««« /v 

740 FOR x=l TO 5 
750 k=x 

760 azarl=(INT(RJ 
TCRNDJ4) 

771 



MIS CART 

KASIGNA) 

1=1 THEN GOSUB 1110 : 

aCfliTAS EL DROENAOOR (CANOEF 



«esOO 
!«*?!: I 
DROENAOOR 

ftntmtt 

1530 FOR JM 

1540 vblerHxlWvl 
£50 NEXT 
ISO; veces=0 
1S70'R£M nnt 1 -\ 

5 

1580 FOR TC 5 

1590 y=l 

1600 VHILE xOy' 

1610 IF juHxKjul'b 
:k$=plt(x):jul(x)=jui y):pi*(x)=pi» 
(y): jul(y)=k:plKy)=H 
1620 y=y+l 
1630 VEND 
1640 NEXT 

1650 REM ttttt 2.- asigna las carta 
s qua se queda a otras variables 
1660 y=l 

1670 FOR x-1 TO 5 
1680 vblenl(y)=0 

1690 VHILE julCy+l)-jul(y)=l AND y< 
5 

1700 vblenl(y)=jul(y):vblentt(y!=p! 
8(y) 

1710 vblenlfy+l)=Jul(y+l):vblenlt(y 
tl)=p!*(ytl) 

1720 y=y+1 
1730 VEND 
1740 y=y+l 
1750 NEXT 

1760 IF jul(5)-jul(l)=12 THEN vblen 
1fl)=iul(1):vblenltfI)=pl$(l):vblen 
l(5)=jul(5):vblenl$C5)=plt(5):veces 
=veces+! 

1770 REM ttttt 3, - asigna 0 a las c 
artas que r,o se queda 
1780 x=5 
1790 VHILE x)0 

1B00 IF vMenl(x)«0 ANQ vbleni(x-l 
UOO AND vb!enl(x)-vbleri(x-i)<>l T 
\EN vblenl< 1 )=0 
1*10 :<=*-l 
18! VEND 

163 FOR x=5 TO 1 STEP -1 
1840 F vb!eni(x)O0 T HEN veces=vec 
1300 FDR x=l TO 5 Kll / 

1310 IF vblenl(x)=0 THEN vblerl(x)= IF vb!enl(x)=0 AND vecesOO TH 

EN FOR y=x TO 1 STEP -1:vblenl(y)=0 
:x=0:NEXT 
I860 NEXT 

1870 IF jul(5)-jul(l)=12 THEN vblen 
l!lj=jul!l):vb!enl*(i)=pl*(!):vblen 
!(5)=jul(S):vblenl»(5)=pl$(5):veces 



>6 THEN 1340 
0 5 
•TO £ 

plt(y) THEN IF pl*( 
l$!y)Opl4(ytl) T 
t (y): vblenl (y)=jul 
Elite k) : vblen! (x 


jul(x):.vblenl$(x)=pU(x) ELSE vb 
l(x)=0:vblen!J(x)=** 

1320 NEXT 
133C SDTD 1885 

, , if' 1340..REM tttmt CAMBIO OE CARTAS P 

M Jtieg«>i | r ',EN :puntl=0:G0SUB .AW EL ORDENADOR CON 2 o MAS CAR T AS 
PUNTUR.IDN JUEGO ORDENADOr IGUALESS* 


1350 FOR x=l TO 5 


=vecestl 

1880 REM DESCAR'E PARA EL ORDENADOR 






























/ 


V CGHPROBACIDN OE NO REPETICIQN 
1890 cartas=0 
1900 FOR x=l TO 5 

1310 IF vblen!(x)=0 THEN cartas=car 

tas+1 

1920 NEXT 

1930 LOCATE!! ,2,18:PRINT*!, *casbio 
:cart as 
1940 FOR v=! TG 5 

'.950 azar!=(lNT!RNQ*!3)*l):a:ar2=:i 
NT(RND**>+226) 

I960 IF vtilen!(x)=0 THEN vblenl(x>= 
azarl:vblenl!Cx)=CHR$(azar2) ELSE 2 
050 

1970 FOR y=! TO 5 

1980 I r jullvl-azarl AND p5t(/)=CHR 

»!azar2) THEN vblenl(x)=0:G0T0 1950 

1990 IF ju2(y)=azar! AND p2*(y)=CHR 

t(azar2) THEN vbUcUx)=0;GDT0 1950 

2000 FOR i=l T D 5 

2010 IF t=x THEN t=Ul 

2020 IF vblenl!t)=azar! AND vblenl* 

!t)=CHR*!azar2) THEN vblen!(x)=0:GC 

T 0 1950 

2030 NEXT 

2040 NEXT 

2050 NEXT 

2060 FDR x=l TO S 

2070 jul(x)=vblenl(x):pl*(x)=vblenl 
*(x) 

2080 NEXT 
2090 RETURN 

2100 REN »»»»»»»»»» PUNTU 

ACION SEGUN JUE60 PARA DROENADDR 

2110 REN 1 - Ordsna las cartas 

2120 FDR x s 1 TO 5 

2130 y=I 

2140 VHILE xOy 

2150 IF juKxKjuKyl THEN k=jul(x) 
:t$=pi»(x):iulfx)=jul(y):pUtx)=pl* 
(y):jut(y)=k:pH(y)=k* 

2160 y=y+l 
2170 VEND 
2180 NEXT 

2190 REN CARTAS I6UAi.ES (par 
eja, doble pareja, trie, full, poke 
r) 

2200 puntl-0 
2210 FDR x=l TO 5 
2220 y=l 
2230 VKILE xOy 

22*0 IF juKxl'jultyl THEN puntl=pu 
nti+1 

2250 y=y+l 
2260 VEND 
2270 NEXT 

2280 IF puntiOO THEN RETURN 
2290 REN ESCALERA 
2300 puntl=0 
2310 FDR x E 1 TO 5 
2320 y=! 

2330 WHILE xOy 

2340 IF julCx)-julty)=fiBS(1) DR jul 
(x>-julfyJ=flBS<12J THEN puntl=purt! 
+1 

2350 y=y+l 
2360 VEND 
2370 NEXT 

2380 IF puntl-4 THEN pun»=3 5 ELSE 

punt!=0 

2390 REN CDLDR 
2400 punt11=0 
2*10 FOR x=i TO 5 
2420 y=l 
2430 VHILE xOy 

24*0 IF p!*(x)=pi*(y) THEN puntll=p 

untll+1 

2*50 y=y+! 

2*60 VEND 
2*70 NEXT 

2*80 IF puntl=3.5 AND puntllMC THE 


N puntl=10:RETURN 

2*90 IF puntl<>3.5 AND puntll=10 TH 
EN pimtl*3.75TRETURN 


30*0 FOR x*l TO 5 
3050 azarl=INT(( 
T(CRND*4)+»67 


kli wUTl w * B V ■ r Vl nC ' Vlii* 

2500 IF puntl<>3.5 AND puntllOlO T 3060 IF vblen2(x)*0 THEN vblen2('' 
. azarl:vblen2*(x)=CHRtfazar2) ELSE 


HEN puntl=0:RETURN 
2510 REN »»»»»»»>»»> WNTU 
ACION SEGUN NT JUEGO 
2520 REN 1 - Ordena las cartas 
25$ FOR x-1 TO 5 
25& y=l 
2556 VHILE xOy 

2560 IF ju2(x)<ju2(y) THEN k=ju2(x) 
:k* pt*(x):iu2(x)=3u2( y):p2«J | ■ 
(y):i i&(yJ=k:p2*CyJ=k* 

2570 y=ytl 
2580 VEND 
2590 HEX 

2600 REN CARTAS IGUALES 
eja, doble pareja, trio, full, 

2610 punt2=(> 

2620 FDR x=l \TD 5 
2630 y=I 
26*0 VHILE *<>' 

2650 IF ju2(x)=\u2(y) THEN punt2=pu 
nt2+! 

2660 y=y+l 

2670 VEND 
2680 NEXT 

2690 IF punt2<>0 THIN RE' 

2700 REN ESCALERA 
2710 punt2=0 
2720 FOR x=l TO 5 
2730 y=i 
27*0 VHILE xOy 
2750 IF ju2(x>-ju2(y)=ABS<! 
(x)-ju2(y)*A8S(12) THEN punt2=punt2 
+i 

2760 y=y+I 
2770 VEND 
2780 NEXT 


azarl:vblen2t(x)=CHR*Cazar2) E 
0T0 3170 
3070 FOR y=l TO 5 

3080 IF ju2(y)=azarl AND p2t(y)=CHR 
*(azar2> THEN vblen2(x)=0: ‘ 

3090 NEXT 


2830 y=l 
28*0 VHILE xOy 

2850 IF p2*(x)=p2*(y> THEN puntl2=p 
untl2+l 

2860 y=y+i 
2670 VEND 
2880 NEXT 

2890 IF punt2-3.5 AND puntl2=10 THE 
N punt2=10:RETURN 

2900 IF punt2<>3 5 AND punt!2=10 TH 
EN punt2=3.75:RETURN 
2910 IF punt2<>3 5 AND purti2<>10 T 
HEN pun12=0:RETURN 

2920 RETURN 

2930 REH »»»»»»»»>» RUTENA 
OE CAHB1G OE CARTAS PARA NI Y COMP 
ROBACIONES OE NO REPETICION 
29*0 zx=2 
2950 FDR x*i TO 5 
2960 vblen2(x)=G:vblen2t(x>=" 

2970 NEXT 

2980 LOCATE U,l:INPUT*PULSA x PARA 
AYUDA*,at:IF at=’r OR at=*x* THEN 
G0SU8 4*80 
2990 FOR x=l TO 5 

3000 LOCATE 11,l:PRINT*CAHBlflS LA*5 
xi*»*;:INPUT ’($/N)*,sino*:LCCATE 1 
l.liPRINT* 

3010 IF linofO'S* AND §tno»<>*§' T 

HEN vblen2(x)=ju2(x):vblen2*<x)=p2* 
(xl ELSE LOCATE' 1 .zx+ 2:PR1NT* *!LCC 
ATE l,zx+3:PRINT* 'ILOCATE 8,zx:PRI 

NT CHR*(222):LOCATE l,zx:PRINT * 

» 

3020 zx=zx+S 
3030 NEXT 



.25: 

^ :LOCj 
0 YjU-'''''’’ 

1250 farol=INT(Rl 
3260 IF nivel 
EN punt1=0 ELI 
1=2 THEN apl= 
arc 1: GOTO 3351 
3270 IF punt 1=0 THEN 
RINT’NO VGV 

_ v 3280 IF puntl=! THEN apt 

2790 IF punt2=* THEN punt2=3.5 ELSE )+l)*100)+farol:'PAREJA 
punt2=0 3230 IF puntl=2 THEN apl=tINT((RNOi 

2800 REH COLOR 6)+nft*50)+farol:'00BLE PAREJA 

2810 punt 12=0 -.“■-- 

2820 FDR x=l TO 5 



3300 IF puifUj3 THEN apl=(INT((RNO! 

8) tl)*100)+far*«fKJTRID 

3310 IF puntl=* T apl=(INT((PNOt 

9) +l)*100)+faroi:'FULL 

3320 IF punt1=6 THEN api= < CRNDt 

7)tl)8100)+farol:'POKER 
3330 IF punt 1=3.5 THEN apl=(INTC 
Di9)+l)*100)+farol:'ESCALERA NORMAL 
3340 IF punti=3.7S THEN ap!=(INT((R 
NDtll)+l)*100)+farol:'COLOR 

3350 IF punt1=10 THEN apl=(INT((RND 
tll)+lU100)+farol: 'ESCALERA DE COL 


3351 IF apDdinl AND suaa2=0 THEN a 
pl=dinl 

3352 IF apiXdinl AND (suia2-suaal)( 
=dinl THEN api=dinl 

3353 IF apDdinl AND (suaa2-suaal)> 
dinl THEN apl=0 

3370 IF apl+5U«al<5uaa2 AND puntlM 
THEN apl=suia2-su»al;St!UN6 1,200,1 
00,15,1,0 ELSE IF apl+suial<suaa2 A 
NO puntK=l THEN ap 1=0:LOCATE 10,25 
IPRINT "NO VOY ".SOUND 1,800,1 
00,15,1,0:sutal=suaa2:RETURN 
3380 IF apl>din2 AND suaa2<>0 THEN 
ap!=suaa2-suaa!:S0UN0 1,200,100,15, 
1,0 ELSE IF apl>din2 AND suaa2=0 TH 
EN ap!=din2:SGUND 1,200,100,15.1,0 
3390 LOCATE 23,25:PRINT ap! 

3400 suaal=suaal+api:dinl=dinl-apl 
3410 LOCATE#!,15,18:IF dinl=0 THEN 
PRINT#!,' —* ELSE PRINTll.dinl 
3*20 GGSUB 3560 
3430 RETURN 

34*0 REH »»»»»»»»»» APUES 
TAS 


fi:PA^R#i,6:PENll, 
GAND*/dinl=dinl*apu:B 
r :F0R x=j* TD 1500:NEXT:BOR 
£ER 9:GOSUB 3B 

3 7 FOR t=l « if FOR x=l TO 3:SDUN 
0 l,2S0r4O;15,l:F6j! y=l TO 300:N 
INEXTISOUNO l,!50,!5,15,t:F0R z=i T 
0 300:NEXT:SOUND 1,120,15,15,1SNEXT 
;FDR x=l TO SOOINEXT 
3650 FOR x=i TO 200:NEXT‘.FDR x=l TO 
2:SOUND 1,150,10,15,l:FDR y=I TO 3 
00:NEXT:NEXT:F0R x=l TO 2:S0UND I,I 
60,10,15,!;F0R y=i TO 300:NEXT:NEXT 
:FDR x=l TO 2:SOUND 1,180,10,15,1:F 
OR y=i TO 300:NEXT:NEXT:SOUND 1,200 
.20,15,1 
3660 GOTO 3780 

3f70 IF punt2)puntl THEN LOCATE*!,7 
,11:PAPER#1,6:PEN*1,1:PRINT!1,’TU G 
ANAS':FOR x=l TO 30fl:S0UN0 l,x/2,l, 
15,2,0:NEXT:di!s2=din2tapu:SOTO 3780 
3680 IF (puntl=3.5 AND punt2=3 5) 0 
R (puntl=10 AND punt2=10) THEN IF j 
ui(5»ju2(5) THEN puntl=l:punt2=0 E 
LSE punt2=l:puntl=0 
3690 FOR x=l TO 5:vblenl(x)=0:vb!en 
2(x)=0:NEXT:FDR x=l TO 5 
3700 IF jul(x)=jui(x+l) THEN vbleni 
(* 1 =julIx):vblen1tx*l)=julCx+1) 

3710 IF ju2(x)=ju2(x+l) THEN vb!en2 
(x)=ju2(x);vblen2(x+l)=ju2(x+l) 

3720 NEXT 
3730 FOR x=l TO 5 
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3740 FOR y=l TO 5 

3750 IF vblenlCx)>vbIen2(y) THEN pu 
ntl=puntl+l ELSE IF vblenifxKvblen 
3(y) THEN punt2=punt2+l 
3750 NEXT:NEXT 

3770 IF punti<)punt2 THEN 3620 ELSE 
LOCATE#!,1,f3:PENI1,4:PRINT#1,*IGU 
fiLES*:dir!=di(il+Capu/2):din2=c!in2+< 
apu/2):G0T0 3840 

3780 LOCATE#!.2,9:PAPER#1,3:PENI1,3 
:FDINT#1,' 

ER#3,6:PEN#1,1 

3790 IF su»al=0 OR suaa2=0 THEN 384 
0 

3800 IF punt! >punt2 THEN 3820 
38S0 IF punt2>piifitl THEN 3830 
3820 FOR x=13 TO 17:L0CATE#1,2.x:PR 
INTSl.'PARA HI ’; apu!LOCATE#!,1 

,x-l:PRINT#l,’ 

ISOUND 4,67,20,7,0,0 7"NEXT:FOR x= 

! TO 1500:NEXT:L0CATE#1,1,17:PRINTS 

1, " '.'SOTO 3840 

3830 FOR x=9 TO 5 STEP -ULOCATESl, 

2, x:PR!NTtl,*PARA TI ..*;apu:LOCAT 
E#i,i,*tl:PRINT#l," 

•:SOUNO 4,100,20,7,0,0,7:NEXT 
:FCR x=l TO 1500:NEXT:LOCATE#!,!,S: 
PRINTtl,* 

3840 LDCATES1 15,S6:PAPERS1,6:PENS1 
,1:PRINTtl,dinl:LOCATES!,1,4:PRINT# 
l,din2:SOUND 1,4000,20,15,0,0,2 
3850 CALL 4SB!8:RETURN 
3860 REN »»»»»»»»»» ASISN 
A CARTAS A LOS VALORES NUHERICOS 
3870 zx=2 

3880 FOR x=33 TO 39: FOR y=zx TO zx+ 
3:LOCATE x,y:PRINT ’ *:NEXT:NEXT:zx 
=zx+5:LOCATE 1,1:IF zx-27 THEN 3890 
ELSE SOTO 3880 

3890 zx=2:FOR x=l TO 5:IF pl*<x)=CH 
RSI22B) OR plt(x)=CHR$f227) THEN LO 
CATE 33,zx:PEN 7:PRINT julfx)|pl#(x 
) ELSE LOCATE 33,zx:PEN OlPRINT jui 
(x)iplS(x) 

3900 PEN 0 

3910 IF p!*(x)=CHttt22B) THEN LOCAT 
E 39,zx*2:PEN 7IPRINT CHR*(242):LQC 
ATE 39,zx+3:PRINT CHRS1243) 

3920 IF pl*Cx)=CHR*(229) THEN LOCAT 
E 39,zx+2;PRINT CHR$(240):LOCATE 39 
,zx+3:PR!NT CHRfC241) 

3930 IF pl$fx)=CHRt(226) THEN LOCAT 
E 39,zx+2:PRINT CHRK246):LOCATE 39 
,zx+3:PRINT CHR$(247) 

3940 IF pl$(x)=CHR$(227) THEN LOCAT 
E 39,zx+2:PEN 7:PRINT CHR$(244):L0C 
ATE 39,zx+3:PRINT CHRS1245) 

3950 IF jul(x)=Il THEN LOCATE 34,zx 

:print *j "ipisixi;* ■ 

3960 IF jul(x)=12 THEN LOCATE 34,zx 
:PRINT *Q ’ipl#(x)!' • 

3970 IF jul(x)-13 THEN LOCATE 34,zx 
:PRINT '* ';pl$!x)i' * 

3980 IF julCx)=l THEN LOCATE 34,zx: 
PRINT 'A 'iplt(x);' ' 

3990 zx=zx+5:PEN OlNEXT 
4000 SOUND 2,300,100,15,1,0 
4010 RETURN 
4020 FOR x=l TO 5:y=l 
4030 WHILE xOy 

4040 IF ju2(x)<ju2(y) THEN k=ju2(y) 
:ju2(y)=ju2(x):ju2(x)=k:k*=p2t(y):p 
2*(y)=p2*(x):p2*Cx)=ki 
4050 y=y+i:VEND 
4060 NEXT 

4070 zx=2:FDR x=l TO 5:IF p2»(x)=CH 
R#(228) OR p2$(x)=CHRS(227) THEN LO 
CATE 2,zxlPEN 7:PRINT ju2(x)Jp2t(x) 
ELSE LOCATE 2,zx:PEN 0:PRINT ju2(x 
)ip2*(x? 

40BC PEN 0 

4090 IF p2*(x)=CHR*(228) THEN LOCAT 


E 1,zx+2:PEN 7:PRINT CHR$(242):L0Cfi 
TE 1,zx+3:PRINT CHRSI243) 

4100 IF p2#(x)=CHRt(229) THEN LOCAT 
E l,zx+2:PRINT CHRSf240):LOCATE !,z 
x+3:PRINT CHRi(241) 

4110 IF p2$(x)=CHR$(226) THEN LOCAT 
E l,zx+2:PRINT CHRSf246):LOCATE l,z 
x+3:PRINT CHRS(247) 

4120 IF p2$(x)=CHR*(227) THEN LOCAT 
E 1,zx+2:PEN 7IPRINT CHRS(244):L0CA 
TE l,zx+3:PRINT CHRS(245) 

4130 IF ju2tx)=ll THEN LOCATE 3,zx: 
PRINT M 'fp2S(x)i* * 

4140 IF ju2(x)=12 THEN LOCATE 3,zx: 
PRINT "Q *jp2S(x)i* * 

4150 IF ju2(x)=13 THEN LOCATE 3,zx: 
PRINT 'K *ip2S(x)i* ' 

4160 IF ju2(x)=l THEN LOCATE 3,zx:P 
RINT 'A *!p2S(x)i* * 

4170 zx=zx+5:PEN 0:NEXT 
4180 SOUND 2,100,100,15,1,0 
4190 RETURN 

4200 REN »»»»»»»»»» SESTI 
ON DEL ERROR '»e«ory full' 

4210 IF ERR=7 THEN CLS#1:PRINT#!,'E 
STOY LISERAHENTE INOISPUESTO NO VO 
y EN ESTA PARTIOA Si hay algo apos 
tado, es todo tuyo’ ELSE CLSIPRI 
NT "error nu»ero*iERR;*en la linea’ 

!ERL:END 

4220 PRINT#!,'error de HEHORV FULL 
Espera un loeentito gue se ae han 
cruzado los cables. ' 

4230 OPENDUT 'pelas ■ 

4240 WRITE #9,dinl,din2,juegol.apl, 

ap2,apu,noabret 

4250 CLOSEOUT 

4280 CLEAR 

4270 CALL &6S1B 

4280 OPENIN 'pelas 

4290 INPUT #9,dinl,din2,juegol.apl, 

ap2,apu,noabret 

4300 CLOSEIN 

4310 CALL &BB1B 

4320 IF juegoSM THEN juegol=2 ELSE 
juegol=l 

4330 REN »»»»»»»»»» 0I8UJ 
0 OE TAPETE 

4340 REN ON BREAK GOSUB 5000 
4350 REN 

4360 PAPER l:PEN 0:CLS 

4370 IF dinl<=0 THEN NODE 0:CLS:LOC 

ATE 5,!!:PRINT 'NE PELASTE':LOCATE 

4,13:PRINT'FDRASTER0!M’:LOCATE 1,2 

O.'END 

4380 IF din2<=0 THEN NODE 0:CLS:L0C 
ATE 4,11:PRINT 'TE OESPLUNE'.'LDCATE 
4,13:PRINT 'FORASTERO M' ’: LOCATE 1 
,15:PRINT CHRS(229);'hoja de parra 
para taparte.. .'.'LOCATE 1,20:EN0 
4390 IF nivel<>2 AND dinKISOO THEN 
mvel=2:s»itch=l ELSE IF dinl>2500 
AND s»itch=l THEN nivel=l:s»itch=0 
4400 WINDOW#!,10,30,3,23:PfiPER#l,3: 
PENS1.4 

4410 FOR x=3 TO 23:L0CATE 9,x:PRINT 
CHRSf138):LOCATE 31,x:PRlNT CHRSfl 
33):NEXT:F0R x=30 TO 10 STEP -l:LOC 
ATE x,2:PRINT CHRS(140):L0CATE x,24 
1PRINT CHRSU31):NEXT:CLS#1 
4420 FDR x=l TO 23 STEP 5:LOCATE 1. 
x:FOR y=l TO 8:PRINT CHRSf!31);:NEX 
T:LOCATE 32,x:FDR y=32 TO 40:PR!NT 
CHRSf131);:NEXT:NEXT:FOR x=l TO 25: 
LOCATE 8,x:PRINT CHR$C133):LOCATE 3 
2,x:PRINT CHRSf138):NEXT 
4430 LOCATE#1,17,20:PRINT#1,'CHIP': 
LOCATE#!,2,2:PRINT#1,UPPERSfncabreS 
) 

4440 LOCATE#!,17,19:PEN#1,0:PRINT#1 
,CHRSf 226)iCHRSf 229)i:PEN#1,13IPRIN 
Ttl, CHRSf 227)iCHRSf228) 


4450 LOCATE#!,2,3:PR1NT#1,CHRSf228) 
!* 'iCHRSf227)i* *i:PEN#l,0:PRINT#l 
,CHRS(229)i* "iCHRSf226):zx=2 
4460 FOR x=33 TO 39; FOR y=zx TO zxt 
3:LOCATE x,y:PRINT CHRS(206>:NEXT:N 
EXT 

4470 zx=zx+5:IF zx=27 THEN 610 ELSE 
SOTO 4460 

4480 REN CANBID DE CARTAS POR ORDEN 

AODR PARA VSUARID 

4490 FOR xl~l TO 5 

4500 vblen2(xl)=0:vbIen2S(xS)=" 

4510 NEXT 

4520 veces=0 

4530 FOR xl=l TO 5 

4540 yl=l 

4550 VHILE xlOy! 

4560 IF p2S(x1)=p2S(y1) THEN veces* 

veces+1 

4570 yl=yl+l 

4580 VEND 

4590 NEXT 

4600 IF veces=10 THEN cartas=0:L0CA 
TE#l,2,18:PRINT#l'ta»bia :':GOTD 
5170 

4610 IF vetesOS THEN 4710 

4620 FOR xl=l TO 5 

4630 FOR yl=xl+l TO 5 

4640 IF p2S(xl)Op2S(yl) THEN IF p2 

S(yl)Op2S(yl-l) AND p2S(yl)Op2S(y 

!+!) THEN vbIen2S(yl)=p2S(yl)Ivblen 

2(yl)=ju2fyl) ELSE vblen2S(xl)=p2S( 

xl):vblen2fxl)=ju2(xl) 

4650 NEXT 
4660 NEXT 

4670 FOR xl=l TO 5 

4680 IF vbien2(xl)=0 THEN vblen2(xl 

) s ju2(xl):vblen2S(xl)=p2Sfxl) ELSE 

vblen2(xl)=0:vbIen2S(xl)=" 

4690 NEXT 
4700 SOTO 5090 

4710 REN ttttm CANBIO OE CARTAS P 
OR OROENAOOR CON 2 c NAS CARTAS IGU 
ALES PfiRA USU 

arid mmummmmmmm* 

tntnmntn 

4720 FOR xl=l TO 5 

4730 vblen2(xl)=0:vblen2S(xl)=" 

4740 NEXT 
4750 vetes=0 

4760 REN ***** 2.- asigna las carta 
s que se gueda a otras variables 
4770 FOR xl=! TO 5 
4780 IF ju2fxl)=ju2(xl+l) THEN vble 
n2(xl)=ju2(xl):vblen2*(xl)=p2*(xl): 
vblen2fxl+l)=ju2fxltl):vblen2S(xl+l 
)=p2S(xl+1):veces=vece5+1 
4790 NEXT 

4800 IF vecesOO THEN SOTO 5090 


4810 REN ******* CANBIO OE CARTAS P 
OR OROENAOOR VENOO A ESCALERA 

PARA USU 

arid tummmmmtmnntnt 
***; 

4820 FOR x!=l TO 5 

4B30 vblen2(xl)=0:vblen2S(xl)=" 

4840 NEXT 
<850 vete5=0 

4860 REN ***** 2.- asigna las carta 

s gue se gueda a otras variables 
4870 y1=1 

4880 FOR xl=l TO 5 

4890 vblen2(yl)=0 

4900 VHILE iu2(y!+!)-ju2(yl)=l AND 

yl<5 

4910 vb!en2(yl)=ju2(yl):vblen2S(yl) 
-p2S(yl) 

4920 vblen2(yl+l)=ju2(y!+l):vbIen2S 

(yl+i)=p2S(yl+l) 

4930 yl=yl+! 

4940 VEND 
4950 yl=yl+l 
4960 NEXT 

4970 IF ju2(5)-ju2(l)=12 THEN vblen 
2(1J=J u2(1):vbIen2S(1)=p2S(1):vblen 
2(5)=iu2(5):vblen2S(5)=p2S(5): veces 
=vece5+l 

4980 REN ***** 3.- asigna 0 a las e 

artas gue no se guedt 
4990 xl=5 
5000 VHILE xl>0 

5010 IF vblen2(x!)<>0 AND vblen2(xl 
-1)00 AND vblen2(xl)-vblen2(xl-l)< 
)1 THEN vblen2fx!-l)=0 
5020 xl=xl-l 
5030 VEND 

5040 FOR *1=5 TO 1 STEP -1 

5050 IF vbIen2fxl)OC THEN veces=ve 

ces+l 

5060 IF vblen2(xl)=0 AND vecesOO T 
KEN FOR yl=xl TO 1 STEP -l;vblen2fy 
1)=0:*=0:NEXT 
5070 NEXT 

5080 IF iu2f5)-ju2fi)=!2 THEN vblen 
2fi)=iu2fl):vblen2*(l)=p2tfl):vblen 
2(5)=ju2(5):vblen2*(5)=p2t(5):veces 
=vece5+l 

5090 REN NUESTRA <2UE CARTAS CAHBIAR 
5100 LOCATE#!,8,5:PRINT#1.'AVUDA" 

5110 cartas=0 

5120 FOR xl=l TO 5 

5130 IF vblen2(x7)=0 THEN LOCATE#!, 

5,xl+5:PRINT#l,*caibia la'ixl 

5140 NEXT 

5150 CALL SBBiS 

5160 FOR c=l TO 6:L0CATE#S l.c+4:PR 
INT#1,' '.-NEXT 

5170 RETURN 



60 AA1STRAD Semanal 









































E l Abstrac es un juego de cartas para dos 
jugadores. Se juega con 24 cartas de poker (A, 
K, Q, J, 10 y 9 de cada palo). Las cartas, una 
vez barajadas, se ponen en hilera boca arriba 
y de modo que se vea cual es cual. Cada jugador 
toma en su turno una, dos, o tres cartas a partir de 
la que esta totalmente descubierta. El objetivo es 
formar combinaciones con las cartas recogidas 
(conjuntos y escaleras). Tanto la descripcion del 
juego como la forma de puntuar se explican 
detalladamente en las instrucciones de la aplicacion. 

El programa comienza con la presentacion del 
titulo (Abstrac) y el primer menu (instrucciones o 
juego). 

En la opcion de instrucciones se describen en 
pantallas sucesivas las reglas del juego. A1 final de 
ellas se llega a la opcion de juego. En esta aparece 
en primer lugar el menu de selection del numero de 
jugadores humanos: en el caso de ser uno, juega 
contra el ordenador y en el caso de ser dos, juegan 
entre ellos sirviendo el ordenador como tablero y 
puntuacion. 

Sea cual sea el numero de jugadores, el ordenador 
pregunta el nombre de estos, hecho lo cual presenta 
la pant alia de juego. 

En la parte superior aparece el nombre de cada 
jugador, junto a la tabla de puntuacion y de cartas 
que posee, y en la parte inferior se muestran las 
cartas. Cuando termina la partida se dedica esta 
parte de la pantalla a la presentacion del menu final, 
en el cual se da la opcion de seguir jugando los 
mismos jugadores (con o sin acumulacion de 
puntos), otros jugadores o finalizar. 

Este programa proporciona durante su ejecucion 
toda la information necesaria para el jugador, tanto 
de reglas del juego como de utilization del 
programa. 
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KZ-serworo 


10 REM- i ABST 

RAC--- 

20 REM - 


30 REM —prograia basado en un jue 
go de cartas de David Parlett— 

40 REM - 


510 LOCATE 15,17:PRINT'Juega *;:IF 
turno = 1 THEN PRINT UPPER*! jgl*) E 
LSE PRINT UPPERKjgZt) 

520 6GSUB 1180 

530 LOCATE U71PRINT CHR*!18):PRIN 
T CHRt(18) 

540 turno = turno t turno2 
550 UENO 


1000 REM Sube el peso de aquellas c 
on las que es posible fonar escale 
ra 

1010 FOR j=l TO 5 

1020 IF guarda(j)=(guarda!j+l)-2) T 
HEN np-1 
1030 NEXT j 
1040 FDR i=l TO 4 


guales 

1480 FOR pi = 1 TO 4 

1490 IF tene*C'S!pl,valor)=C THEN pe 

so(pl,valor)=peso(pl,valor)+au*ento 

1500 NEXT pi 
1510 RETURN 
1520 ' 


50 RANDOMIZE TIME 
60 MODE 2:tinta=l:60SUB 3100 
70 60SUB 3830:REM Eleccion del nu»e 
ro de jugadores y el lano 
80 ' 

90 WHILE opuon <= 2:REM Prograia p 
rincipal 

100 DIM nuierot(6) cartas(30,2),,ten 
eaos(4,8X,pesoi4,6),veo(5,2) s guarda 

(6),recu(2), puntosc 6,2), puntose! 
4,2) 

110 pruera = 0 

120 REM Pantalla de espera 

130 MODE OIINK 1,3:INK 2,18:B0RDER 

18 

140 PEN 1:PAPER 2ICLS 

150 LOCATE 5,13:PRINT*Barajando 

II 

160 REM Iniciahza valores de carta 

s para upresion 

170 RESTORE 4480 

1B0 FOR siibolo = 1 TO 6 

190 READ nuieroKsubolo) 

200 NEXT siibolo 

210 REM coloca de fona aleatoria I 
as cartas 

220 FOR pale = 1 TO 4 
230 FOR valor = 1 TO 6 
240 busco - 0 
250 WHILE busco = 0 
260 lugar = INT(RND*23+1 5) 

270 IF cartas!lugar,1)=0 THEN carta 
s(lugar,1)=palc:cartas!lugar,2)=val 
or:busco=l 
280 WEND 

290 NEXT valor:NEXT palo 
300 IF juegan=l THEN 60SUB 700:REN 
si un jugador pesa las cartas 
310 REM Pantalla de juego~" 

320 INK 0,0:INK 1,26:BORDER 0:M00E 
2 

330 CLSIWINDOW #0,1,80,1,25:UINDOWi 
1,33,45,3,3: PEMKO: PAPER# 1,1 
340 REM liprue las cartas 
350 60SUB 2640 
360 MOVE 5.16:cursor=-l 
^ 370 FDR naipe-24 TO 1 STEP -I 
3B0 tinta - 1: cursor = cursor +3:60 
SUB 3000:60SUB 2920:REM pinta cada 
car la!parte izquierda) 

390 NEXT naipe 
X 400 naipe=l:60SUB 2960:cursor - cur 
sor + 3:G0SUB 3050:REM pinta la par 
ti dcha de la pnnera carta 
410 REM iiprue los noibres de los 
jugadores 

420 LOCATE ((25-LEN!jgl*))/2)t5,6:P 
RINT UPPER*!jglt); 

430 LOCATE ((25-LEN!jg2t))/2)+44,6I 
PRINT UPPER*!jg2t); 

440 REM coiienza a jugar 
450 naipe=l:REM micializa contador 
de cartas toiadas 
460 REM Coiienzo real del juego 
470 turno2 = -1 

480.. IF «ano = 1 THEN turno = 1 ELSE 
turno = -1 

490 REM Dos jugadores 
500 WHILE juegan = 2 AND naipe < 25 


560 REM Jugador contra ordenador 

570 WHILE juegan = 1 AND naipe < 25 

580 IF turno = -1 THEN 60SUB 1110 E 

LSE 6QSUB 1180 

590 turno = turno 4 turno2 

600 WEND 

610 G0SUB 2260:REM Puntuauon final 
620 G0SUB 4130:REM Fin de partida 

630 REM Anahza la opcion final 
640 ON opcion G0SUB 4240, 4220 
650 WEND:REM Fin del prograia princ 
ipal (While en la linea 90) 

660 IF opcion = 3 THEN RUN:REM Eipe 

zar de nuevo 

670 CLS 

6B0 END 

690 

700 REM hace una valoracion de las 
cartas segun cuales sean y segun es 
ten colocadas 

710 REM Priiero da peso a las carta 
s en pirande ; de *ayor a »enor, 
J-Q, K-10,y A-9 
720 FOR valor = 1 TO 6 
730 READ peso(1,valor):peso!2,valor 
)=peso(1,valor):peso!3,valor)=peso! 
1.valor):peso!4,valor)=peso(1,valor 
) 

740 NEXT valor 

750 REM Averigua la posicion de las 
cartas del Kismo nuiero 
760 FOR valor = 1 TO S 
770 q=l:np=0 
780 FOR k=! TO 24 

790 IF cartas!k,2)=valor THEN guard 

a!q)=valor:q=qtl 

800 NEXT k 

810 REM Mira si puede tomar cuatro 
iguales o es uposible 
820 FOR k=l TO 3 

830 IF guarda(k)=!guarda(k+l)-2) TH 

EN np=1 

840 NEXT k 

850 FOR k=l TO 2 

860 IF !guarda(k)=(guarda(k+2)-5) 0 
R guarda!k)=iguarda(k*2)-4)) AND NO 
T (guarda(k)=(guarda(k+2)-3)) THEN 
np=l 

870 NEXT k 
880 FOR k=l TO 3 

890 IF (guarda(k)=guarda(ktl)-l) AN 
D np=0 THEN auiento=2:GOSUB I470:RE 
M aueentar peso 
900 NEXT k 

910 REM Sube el peso de aquellas de 
las que es posible toiar las cuatr 
o 

920 IF np=0 THEN auaento = 4:G0SUB 

1470:REM auientar peso 

930 NEXT valor 

940 FOR palo=l TO 4 

950 q=l:np=0 

960 REM Averigua la posicion de las 
cartas del lisao pale 
970 FOR j=l TO 24 

980 IF cartas!i, 1 >=palc THEN guarda 

(q)=palo:q=q+i 

990 NEXT j 


1050 IF guarda(j)=(guarda!j*2)-5) 0 
R guarda!j)=(guarda(j+2)-4) THEN np 
=1 

1060 NEXT j 

1070 IF np=0 THEN G0SUB I660:REH au 

nentar peso per escalera 

1CB0 NEXT palo 

1090 RETURN 

1100 ' 

1110 REM coge cartas el ordenador 
1120 LOCATE 1,17:PRINT CHR*(1B):PRI 
NT CHRt!18):LOCATE 15,17:PRINT’M«*« 
•h! ":FCR retar = 1 TO lOOOlNEXT 

1130 recojo=l:G0SUB 1880:50SUB 1260 
:REM peso 

1140 G0SUB 1720:LOCATE 15,1?:PRINT* 
he cogido recojo+1}" cartas ’ 

1150 60SUB 1880:REM Coger *as carta 

5 °no 

1160 RETURN 

1170 ' A 

1180 REM coge cartas el jugador 
1190 LOCATE !5,1B:PRINT 'cuantas ca 
rtas quieres 7 ’! 

1200 IF naipe = 1 AND priiera = 0 T 
HEN *enor = 0:prnera = 1 ELSE »eno 
r = 1 

1210 IF naipe < 22 THEN Kayor = 3 E 

LSE Kayor = 25 - naipe 

1220 GDSUB 42S0:recojo = a:PRINT re 

cojo 

1230 G0SUB 1880:REM Coge las cartas 
que ha pedido 
1240 RETURN 
1250 ' 

1260 REM da peso a las cartas que p 
ueden hacer coibinactones 
1270 G0SUB 1310:REM 4 iguales 
1280 60SUB 1530:REM escalera 
1290 RETURN 
1300 ' 

1310 REM 4 iguales 

1320 FOR valor = 1 TO 6 

1330 p=0:t=0:REM Contadores de cart 

as iguales de cada jugador 

1340 FOR palo = 1 TO 4 

1350 IF teneiosfpalo valor)=1 THEN 

p=p+l 

1360 IF teneiosfpalo,valor)=-l THEN 
t=t+I 

1370 NEXT palo 

1380 IF p>=l AN0 t=0 THEN au«ento = 
2:60SUB 1470:REM auientar peso 
1390 IF p)=2 AND t=0 THEN auiento = 

4:G0SUB 1470:REM auientar peso 
1400 IF p=3 AND t=0 THEN auiento = 
12:GDSUB 1470:REH auientar peso 

V 

1410 IF t>=! AND p-0 THEN auiento = 
2:G0SUB 1470:REM aueentar peso 
1420 IF t>=2 AN0 p=0 THEN auiento = 
4:G0SUB 1470:REN auientar peso 
1430 IF t=3 AN0 p-0 THEN auiento = 
12: G0SUB 1470:REH auientar peso 
1440 NEXT valor 
1450 RETURN 
1460 ' 

1470 REM auientar peso por cuatro i 


1530 REM escalera 

1540 FOR palo = 1 TO 4 

1550 p=0:t=0 

1560 FOR valor = 1 TO 6 

1570 IF teneiosfpalo,valor)=1 THEN 

p = p t 1 

1580 IF tenei05(palo,valor)=-l THEN 
t = t + 1 
1590 NEXT valor 

1600 IF p>=2 AND t=0 THEN 60SUB 166 

0:REM auientar peso 

1610 IF t)=2 AND p=0 THEN 60SUB 16 

60:REM auientar peso 

1620 IF t>=4 AND p=0 THEN GOSUB 16 

60:REM auientar peso 
1630 NEXT palo 
1640 RETURN 
1650 

1660 REM auientar peso por escalera 
1670 FOR nuiero=l TO 6 
1680 IF teneio5(palo,nuiero)=0 THEN 
peso!pa1o,nuie ro)=peso!palo,nuie ro 

)+2 

1690 NEXT nuiero 
1700 RETURN 
1710 ' 

1720 REM decide cuantas escoge el o 
rdenador 

1730 FOR k=0 TO 5 
1740 FOR j=l TO 2 
1750 veo!k,j)=cartas(naipe+k, j) 

1760 NEXT jlNEXT k 
1770 REN Analisis de la jugada 
1780 pesos=pe5o!veo!0 l),veo!0,2))+ 
pesofveo!1,1),veo!1,2))+peso(veo!S, 

1), veo(5,2)) 

1790 pesox=peso(veo(3,1),veo(3,2))+ 
peso!veo(4,l),veo!4,2)) 

1800 pe5os2=peso!veo(0,1), veo!0,2)) 
+peso(veo(4,l),veo(4,2)) 

1810 peso*2=peso(veo(1,1),veo!1,2)) 
+peso(veo(3,l),veo(3,2)) 

1820 peso6l=peso(veo!3,1), veo!3,2)) 
1830 pesoxl^pesofveotO,1),veo(0,2)) 
+pesoC veo!1,1),veo!1,2)) 

1840 IF pesos-pesox>=pe5osl-pesoxl 
AND pesos-pe5ox>=pesos2-pe5ox2 THEN 
recojo=2 ELSE IF pesos2-pesox2)=pe 
sosl-pesoxl THEN recojo=l ELSE reco 
jo=0:REM coger 3 o 2 o 1 cartas 
1B50 IF (naipe ♦ recojo) > 25 THEN 
recojo = 25 - naipe 
1860 RETURN 
1870 ' 

1880 REM coger cartas 
1B90 WHILE recojo >- 1 
1990 palo=cartas!naipe,l) 

1910 valor=cartas(naipe,2) 

1920 teneiosfpalo,valor)=turno 
1930 60SU8 2020!REM Visualiza en el 
larcador la carta cogida y la borr 
a de la iesa 

1940 GOSUB 2370:REM Actualiza el ia 

reader de puntuacion 

1950 IF juegan = 1 THEN GOSUB 2130 

1960 naipe=naipe t 1 

1970 recojo = recojo - 1 

1980 IF naipe < 25 THEN GOSUB 2960; 
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cursor = cursor + 3:6GSUB 30501 PLOT 
R -1,0:HOVER 0,-75:PL0TR 0,0:H0VER 
1,75:REP) Pints parte derecha de la 
nueva carta 
1990 WEND 
2000 RETURN 
2010 ' 

2020 REH Visualira y borra 

2030 IF turno = 1 THEN posicx = 5 E 

LSE posicx = <2 

2040 LOCATE posicx t 4tcartas(naipe 
,2),7 + cartas(naipe,l):PR!NT nu»er 
o*(cartas(naipe,2)) 

2050 HOVER 0,-75:tinta = 0:60SUB 29 
60 

2060 HOVER -24,-7B: 60SUB 2920 
2070 PEN 0 

2080 GDSUB 3050! cursor = cursor 
160SUB 3000: cursor = cursor - 3 
2090 tinta = l:PEN 1 
2100 HOVER -24,0 
2110 RETURN 
2120 ' 

2130 REH pesa escaleras 

2140 aa = Clsalgo - 0 

2150 WHILE valor - aa 0 1 AND salg 

o = 0 

2150 IF teneaos(palo,valor-l-aa)=tu 
rno THEN aa=aa+l ELSE salgo = 1 
2170 VEND 

2180 IF salgo 0 0 THEN pesolpalo.v 

alor-l~aa)=pesoSpalo valor-l-aa)t2t 

(aa*l) 

2190 bb=0:salgo = 0 

2200 WHILE valor ♦ bb <> 6 AND salg 

o = 0 

2210 IF teneaos(palo,valor+ltbb)=tu 
rno THEN bb=bb+l ELSE salgo = 1 
2220 WEND 

2230 IF salgo 0 0 THEN pesolpalo.v 

alor*l+bb)=peso<palo,valor+l+bb)+2? 

tbbtl) 

2240 RETURN 
2250 

2250 REH calcula puntuacion dehmt 
iva 

2270 nuacart = 0 

2280 FDR nu»ero=l TO 6 

2290 FOR paio=l TO 4 

2300 IF tene*os(palo,nuaero)=-l THE 

N nuacart = nuacart + 1 

2310 NEXT:NEXT 

2320 tota10= tota10+recu(0)4(24-nuac 
art) 

2330 total2=total2*recu(2)*nuacart 


2450 FDR nu* = I TO 6 

2450 IF tene»os(palo,nu«) = turno T 

HEN esc = esc + 1 ELSE S0SUB 2560:R 

EH Puntua escalera 

2470 NEXT 

2480 G0SUB 2560 

2490 REH lapriae los nuevos resulta 
dos 

2500 IF turno = -1 THEN orig = 42.0 
rigl = 72 ELSE orig = SlorigI = 34 
2510 LOCATE orig + 4*vaIor,13:PRINT 
puntoscfvalor,turno + 1) 

2520 LOCATE ongl,7 t palolPRINT US 
1NG "M'ipuntoselpalo,turno + 1) 

2530 LOCATE origl,13:PRINT USING 'I 
I’;recufturno +1)1 
2540 RETURN 
2550 

2560 REH Puntua escaleras 
2570 IF esc = 6 THEN recufturno + 1 
) = recufturno + 1) + 12 - puntosef 
palo turno + l):puntosefpalo,turno 
* 1 ) = 12 

2580 IF esc = 5 THEN recufturno + 1 
) = recufturno + 1 ) * G - puntose 
(palo, turno t l):puntose(palo,turn 
o * 1) = 6 

2590 IF esc = 4 THEN recufturno + 1 
) = recufturno + 1) + 4 - puntosefp 
alo, turno ♦ DIpuntosefpalo,turno 
t 1) = 4 

2600 IF esc = 3 THEN recufturno + 1 

) = recufturno ♦ 1) * 3 - puntosefp 

alo, turno * lKpuntosefpalo,turno 

+ I) = 3 

2610 esc = 0 

2620 RETURN 

2630 

2640 REH Pinta e! recuadro de infer 
■acion 

2650 LOCATE 33,6:PRINrPtos.': L0CAT 
E 71,6:PR!NT’Ptos.' 

2660 FOR 3=0 TO 3 

2670 LOCATE 6,8+j:PRINT CHR*(226+j) 
;LOCATE 43,8*j:PRINT CHR*(226+i) 


2340 LOCATE 23,1S:PRINT recu(2)Jnua 
cart:L0CATE 31,15:PRINT USING '#*»» 
l';total2:L0CATE 60,15:PRINT recufO 
)4f24-nuacart):L0CATE 69,15:PR1NT U 
SING ■tmt'itotalO 
2350 RETURN 
2360 

2370 REH actuahza la puntuacion pa 

rcial 

2380 conj = 0 

2390 FOR pal os = 1 TO 4 

2400 IF teneaos(palo 5 ,valor)=turno 

THEN conj = conj + 1 

2410 NEST 

2420 IF conj = 4 THEN puntoscfvalor 
turno+ 1 ) = 8 :recufturno + 1 ) = rec 
ufturno + 1 ) + 6 

2430 IF conj = 3 THEN puntoscfvalor 
turno+ 1 ) = 2 :recufturno + 1 ) = rec 
ufturno +11 + 2 
2440 esc = 0 


uecos 

2820 FOR hneas = 8 TO 11 
2830 LOCATE 34 ,lineas:PRINT 0; 

2840 LOCATE 72,lineasIPRINT Oi 
2850 NEST 

2860 FOR coluanas = 9 TD 29 STEP 4 
2870 LOCATE colunnas,13:PRINT C;;LC 
CATE coluanas + 37,13:PR1NT 0j 
2880 NEXT 

2890 LOCATE 34,13:PRINT USING ***’! 
o;:LOCATE 72,13:PR1NT USING WiOl 




2680 NEST j 

2690 LOCATE 4,13:PRW*Ptos.*:LDCAT 
E 41,13:PRINT*Ptos." 

2700 HOVE 22B 158:DRAVR 56,0,1:DRAW 
R 0,20,1:DRAUR -56,0,1:DRAWR 0,-20, 

1 

2710 HDVE 532,158:DRAWR 56,0,1:DRAW 
R 0,20,l:DRAVR -56,0,l:DRAWR 0,-20, 

1 

2720 LOCATE 12,15:PRINT'RESULTA00. 
';0:LOCATE 49,15:PR1NT’RESULTAD0: * 
iO:LOCATE 31,15:PR!NT USING ’****»' 

;total2:LOCATE 69,15:PRINT USING '» 
MH’itotalO 

2730 HOVE 304,152:DRAWR 0,174,l:H0V 
E 36,220:DRAWR 212,0,l:0RAWR 0,72,1 
:H0VE 332,220;DRAWR 220.fi,1:DRAWR 0 
,72,1 

2740 HOVE 256,190:DRAWR 28,0,1:DRAW 
R 0,20,1.DRAWR -2B.0,HDRAWR 0,-20, 
1 

2750 HDVE 560,190:DRAWR 28,0,1:DRAW 
R 0,20, HORAWR -28,0, l:DRAWR 0,-20, 
1 

2760 CLS IlIPRINTil,' ABSTRAC’ 
2770 FOR origen = 10 TO 47 STEP 37 
2780 FDR linea = 8 TO 11 
2790 FOR posicion = 0 TO 20 STEP 4 
2800 LOCATE origen+posicion,linea:P 
RINT’-’i 

2810 NEXT:NEXT:NEXT:REH pinta los h 



2900 RETURN 
2910 ' 

2920 REH Pinta o borra lado lzquier 
do de una carta 

2930 DRAWR - 5 ,5,tintalDRAWR 0,65,ti 
nta:DRAWR 5,5,tinta:DRAWR 24,0,tint 
a:HDVER -24,-7S:DRAWR 24,0,tinta 
2940 RETURN 
2950 ' 

2960 REH Pinta o borra lado derecho 
de la carta descubierta _ H 

2970 DRAWR 1710,tintalDRAWR 5,5,tin PALD ! 
ta:DRAWR 0,65,'t-inta:DRAWR -5,5,tint 3420 PRINT 
a:DRAWR -17,0,tinta 
2980 RETURN 
2990 

3000 REH Pinta o borra palo y nuaer 
o de la parte izq 

3010 LOCATE cursor- 1 ,21:PRINT nuaer 
ot(cartas(naipe, 2 )) 

3020 LOCATE cursor,23:PRINT CHRtfcs 
rtisfnaipe.l) + 225) 

3030 RETURN 
3040 ’ 

3050 REH Pinta o borra palo y nuaer 
o de la carta descubierta (parte dc 
ha ) 

3060 LOCATE cursor,2UPRINT CHRtfca 
rtasfnaipe.lJ + 225) 

3070 LOCATE cujrsor - 1,23:PRINT nua 
ero*(cartas(naipe, 2 )) 

3080 RETURN 
3090 

3100 REH pinta r'etulo 
3110 BORDER 0 


la - 24 cartas apare^n una sobre o 
tra en una hilera,’ 

3320 PRINT’de aodo que puedes vtr t 
Adas las cartas * 

3330 PRINT’ Cada jugador, en su 
turno, toaa una, dos o tres cartas 
seguidas a partir* 

3340 PRINT’de la que esta totalaent 
e descubierta! en la priaera jugada 
de la partida el* 

3350 PRINT*jugador '»ano' puede pa 
sar', sin coger cartas Se sigue ju 
gando alternative -’ 

3360 PRINT’aente hasta que no quede 
n cartas, 1 ’ 

3370 G0SUB 3780:REH para continuar 
33B0 PRINT:PRINT:PRINT 
3390 PRINT" El G8JETIV0 es toaa 
r cartas que foraen CCHBINACIONES P 
UNTUABLES:” 

3400 PRINT 

3410 PRINT’ ESCALERAS, 


-A 

E TRES 0 HAS CARTAS SEGUIDAS DE UN 

CGNJUNTOS: D 
E TRES D HAS CARTAS DEL HISHG VALOR 

3430 60SUB 3780:REH para continuar 
3440 PRINT 

3450'PMNr La PUNTUACION de ca 
da coabmacion es:" 




3460 PRINT 
3470 PRINT’ 

SEIS cartas 
3480 PRINT 
C1NC0 
3490 PRINT 
CUATR0 cartas 
3500 PRINT’ 

TRES cartas, 
3510 PRINT 
3520 PRINT’ 
CUATR0 cartas, 
3530 PRINT’ 

TRES cartas, 



CDNJUNT0: de 
8 puntos* 

de 

2 puntos’ 


3540 PRINT _ 

3550 PRINT’ La aisaa carta pued 
01 iu Dunutn v . e puntuar.en dos coabinaciones ’ 

3120 WINDOW *0,1,¥0,12 25:WINDDW 35 ^ rqjijb 37B0:REH para continuar 
1 “ ' " x V —’—” 3570 PRINT:PRINT:PRINT:PRINT:PRINT' 

PRINT 

3580 PRINT’ 


,1,80,1,11 \ - 

3130 INK 0,0:1 , 1,26:PAPER 0:PEN 1 
:paper*i,o:pen*i,\CLS:CLS# 1 
3140 FOR lineas = NlO 10 
3150 PRINT*l:PRINT*l,SPCfll) 

3160 FOR coluanas = 1 T0>85 
3170 READ caracter:PRINT*l,CHR*Scar 
acter); 

3180 NEST coluanas:NEST lineas 
3190 REH aenu 
3200 LOCATE 31,5:PRINT’ 
clones’ 

3210 LOCATE 31,9:PRINT’ J Juego’ 




I 


' 

.Instruc 


3220 aenor = 25:aayor = 26:G0SUB 42 
80 

3230 IF at=T THEN G0SUB 3260 
3240 RETURN 
3250 * 

3260 REH escribe instrucciones 
3270 CLS 

3280 PRINTIPRINT 

3290 PRINT’ El Abstrac es un ju 
ego de cartas para dos jugadores cr 
eado por David Par-’ 

3300 PRINT’lett Se juega con 24 ca 
rtas de poker: A K, Q, J, 10 y 9 d 
e cada palo.’ 

3310 PRINT’ Despues de barajar, 


Para obtener la pun 
tuacion final se aultiplican los pu 
ntos obtemdos en ’ 

3590 PRINT*las coabinaciones por ei 
nuaero de cartas que ha cogido el 
adversario.' 

3600 G0SUB 37B0:REH para continuar 
3610 PRINT’ Ejeaplo: ’ 

3620 PRINT:PRINT CHR*(22)iCHR$(l)i: 
REH Hodo transparente 
3G30 HDVE 304,20:DRAWR 0,190,1IH0VE 
36,92:0RAWR 212,0,l:DRAWR 0,68,l:H 
0VE 332,92:DRAWR 220,0,1:DRAWR 0,68 

3640 PRINT SPC(33)’Ptos * i SPCf 32) *P 
tos.’ 

3650 PRINT 

3660 PRINT SPC(5)CHR4(226)i’ 

K Q - - - 3 



(226)!’ - 7 10 


A 

’iCHR* 

9 


3670 PRINT SPCf5)CHRt(227)!’ 
- - J - - 0 

(227)!’ - K Q - 10 

0’ 

3680 PRINT SPCf5)CHR*(228);’ 
IK - - 0 


A 

’; CHRt 
9 


A 

"J CHRt 
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(228) ;' - - Q J 10 9 

4' 

3690 PRINT SPC(5)CHR*(229)i* A 
' " J 10 9 3 "jCHRt 

(229) ;* - K « - - - 

0* 

3700 PRINT 

3710 PRINT SPC(S)* 8000 
0 0 Ptos 0 0 2 

0 2 2 Ptos * 

3720 PRINT 

3730 PRINT" TOTAL;(8+3+3)PUNTCS* 
I3CARTAS=182 TOTAL: (2+2+2+4+3)F(JH 
TGS*1ICARTAS=143* 

3740 PRINT 

3750 PRINT CHR$(22);CHR*(0)j:REN De 
sactiva aodo transparente 
3760 GDSUB 37BCTREK! para continuar 
3770 RETURN 

3780 LOCATE 25,14:PRINT*PULSA UNA T 
ECLA PARA CONTINUAR* 

3790 WHILE INKEY* = ”:WEND 
3800 CLS 
'810 RETURN 


REN Selecciona el nuaero de ju 
idores y el aano 
40 CLS 

iO LOCATE 27,7:PRINT*CUANT0S JU6A 
ES? (1 o 2)* 

) aenor * l:*ayor = 2:60SUB 4280 
gan = a 

IF juegan = I THEN 60SUB 3930: 

N 

IS 

-.v »ano = 1:LOCATE I5,7:PSINT’N0N 
BRE OEL JU6AD0R 1 (HANG)’ *;:60SUB 
4020:jgl$ = no*bret:CLS 
3900 LOCATE 1E,7:PRINT*N0HBRE DEL J 
U6AD0R 2’ *;:60SUB 4020:jg2 

* = noabret 
3910 RETURN 
3920 ' 

3930 REN Ur, jugador 
3940 CLS 

39S0 LOCATE 27,5:PRINT* 1 - TU ERES 
HAND* 


3960 LOCATE 27,9:PRINT* 2 - EL GROE 

NADOR ES HANG* 

3970 *enor = l:«ayor = 2:6GSUB 4280 
:aano = a 
3980 CLS 

3990 LOCATE 1S,7:PRINT* COHO T 
E LLANAS? *;:G0SUB 4020:jgl 

* = noabret:jg2t = "DR0ENA00R* 

4000 RETURN 
4010 

4020 REH Retoje noabre 
,4030 LOCATE 25,I4:PRINT*MA*IW0: 10 
CARACTERES Y CENTER)*;:LGCATE 45,7 

4040 at = **:no»bret = ** 

4050 WHILE a* = "*:a* = INKEYt:WEND 
4060 WHILE ASC(at) <) 13 
4070 IF ASCiat) = 127 THEN IF noabr 
et <> ** THEN PRINT CHR*(8);CHSt(I6 
);:no*bret = LEFTt(noibret,LEN!no*b 
ret) - 1) ELSE PRINT CHRt(7); ELSE 
PRINT at;:no«bret = noabret + a* 
40BC IF LEN(noabret) > 10 THEN noab 
re* = **:L0CATE 45,7:PRINT CHR*(I8) 
;CHRt(7)i 

4090 at = **:WHILE a* = **:at = INK 

EYt:WEND 

4100 WEND 

4110 RETURN 

4120 * 

4130 REH Fin de la partida 
4140 LOCATE 1,17:PRINT CHRt(18):PRI 
NT CHRt(lB) 

4150 LOCATE S,20:PRINT"1 . Nueva 
partida entre los aisaos jugadores 
(atuaulandc los puntos)* 

4160 PRINT SPC(4)*2 Nueva parti 
da entre los aisaos jugadores (sin 
acuauiar puntos)* 

4170 PRINT SPC(4)*3 ... Nueva parti 
da entre dos nuevos jugadores* 

4180 PRINT SPC(4)*4 . Fin* 

4190 aenor = l:aayor = 4:G0SUB 4280 
:option - a 
4200 RETURN 
4210 ' 


Bloques del programa 

LINEAS 

DESCRIPCION 

10-70 

Inicializacibn. 

80-680 

Bloque principal. 

690-1090 

Subrutina de estudio inicial de las 
cartas par parte del ordenador. 

1100-1160 

Coge cartas el ordenador. 

1170-1240 

Coge cartas un jugador bgmano. 

1250-1700 

Da peso a las cartas a medida 
que se bacen las jugadas. 

1710-1860 

El ordenador decide el nurrtero de 
cartas que coje. 

1870 21 TO 

Visualization de la jugada (pone 
en el morcodor y borra de la 
mesa la Carta cogida). 

2120-2240 

Valor a la contiguidad de las 
cartas, para format escaleras. 

2250-2350 

Puntuacion de la partida (Total). 

2360-2540 

Puntuacibn parcial en las 
marcadores. 

2550-2620 

Visualiza puntos de escaleras. 

2630-2900 

Pinta el marcadof superior. 

2910-3080 

Subrutinas paro pintar o borrar 
las cortas. 

30903240 

Pinta el titula y el primer mertb. 

3250-3810 

Instrucciones. 

3820-3910 

Menu de eleccibn del riumero de 
jugadores humonos. 

3920-4000 

Menu para elegir el mono (co$o 
de un jugador). 

4010-4110 

Subrutina para recoger nombre. 

Menu final. 

4120-4200 

4210-4260 

Iniciaiiza los variables necesorias 
pare seguir los mismos jugadores. 

Si se entra par 4210, los puntos 
de todos las partidas no se 
acumulan. Por la 4230, si. 

4270-4350 

Recoge opcibn para un menu. 

4360-4490 

Datos. 


Hills3 1 

' i i iO 
os*!*, e I 41 


4220 REH Continuan jugar.do los aisa 
os 

4230 totalO = 0:toial2 = 0 
4240 ERASE nuaerot, cartas, teneaos 
, peso, veo, guarda, recu, puntosc, 
puntose 

42S0 IF aano = 1 THEN aano = 2 ELSE 
aano =1 
4260 RETURN 
4270 

4280 REH Lectura del tec 1 ado 
4290 REH Devuelve letra aayuscula ( 
at) o nuaero (a) para los aenus 
4300 WHILE INKEYtO**:WEND:REH liap 
ia el buffer de teclado 
4310 a* = ** 

4320 WHILE a* = ** 

4330 at = UPPERt(INKEYt):IF at 0 * 

* THEN IF ASC(a*)-48 < aenor OR ASC 
(at)-48 > aayor THEN at = **:PRINT 
CHRt(7); ELSE a = ASC(at) - 48 
4340 WEND 
43S0 RETURN 
4360 ' 

4370 REH Caracteres para el noabre 
del juego (A8STRAC) 

4380 DATA 32,214,143,143,143,215,32 
,32,143,143,143,143,143,143,215,32, 

214.143.143.143.143.143.215.32.143, 

143.143.143.143.143.143.32.143.143, 

143.143.143.143.215.32.32.214.143.1 

43.143.215.32.32.214.143.143.143.14 
3,143,215 

4390 DATA 214,143,143,143,143,143,2 

15,32,143,143,143,143,143,143,143,3 

2.143.143.143.143.143.143.143.32.14 

3.143.143.143.143.143.143.32.143.14 

3.143.143.143.143.143.32.214.143.14 

3.143.143.143.215.32.143.143.143.14 

3.143.143.143 

4400 DATA 143,143,212,32,213,143,14 

3.32.143.143.32.32.32.143.143.32.14 

3.143.32.32.32.143.143.32.32.32.143 
,143,143,32,32,32,143,143,32,32,32, 

143.143.32.143.143.212.32.213.143.1 

43.32.143.143.32.32.32.213.143 


4410 DATA 143,143,32,32,32,143,143, 

32,143,143,32,32,214,143,143,32,143 
,143,32,32,32,32,32,32,32,32,143,14 

3.143.32.32.32.143.143.32.32.214.14 

3.143.32.143.143.32.32.32 143,143,3 

2.143.143.32.32.32.32.32 

4420 DATA 143,143,143,143,143,143,1 

43.32.143.143.143.143.143.143.212.3 

2.143.143.143.143.143.143.215.32.32 
,32,143,143,143,32,32,32,143,143,14 

3.143.143.143.212.32.143.143.143.14 

3.143.143.143.32.143.143.32.32.32.3 

2.32 

4430 DATA 143,143,143,143,143,143,1 

43.32.143.143.143.143.143.143.215.3 

2.213.143.143.143.143.143.143.32.32 
,32,143,143,143,32,32,32,143,143,14 

3.143.143.143.215.32.143.143.143.14 

3.143.143.143.32.143.143.32.32.32.3 

2.32 

4440 DATA 143,143,32,32,32,143,143 
32,143,143,32,32,213,143,143,32,32, 

32.32.32.32.143.143.32.32.32 143,14 

3.143.32.32.32.143.143.32.32.213.14 

3.143.32.143.143.32.32.32.143.143.3 

2.143.143.32.32.32.32.32 

4450 DATA 143,143,32,32,32,143,143, 

32,143,143,32,32,32,143,143,32,143, 

143.32.32.32.143.143.32.32.32.143.1 

43.143.32.32.32.143.143.32.32.32.14 

3,143,32,143,143,32,32,32,143,143,3 

2,143,143,32,32,32,214,143 

4460 DATA 143,143,32,32,32,143,143, 

32.143.143.143.143.143.143.143.32.1 

43.143.143.143.143.143.143.32.32.32 
,143,143,143,32,32,32,143,143,32,32 
,32,143,143,32,143,143,32,32,32,143 
,143,32,143,143,143,143,143,143,143 
4470 DATA 143,143,32,32,32,143,143, 

32.143.143.143.143.143.143.212.32.2 

13.143.143.143.143.143.212.32.32.32 
,143,143,143,32,32,32,143,143,32,32 
,32,143,143,32,143,143,32,32,32,143 
.143,32,213,143,143,143,143,143,212 
44B0 DATA * A*,* K*,* Q*,* J*,*1C*, 

* 9* 

4490 DATA 0,5,15,15,5,0 
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lisle de variables 

RECU 

TINTA 

Color para los DRAW (a 1 

PUNTOSC 

opciOn 

pinta, a 0 borra), 

Opcibn escogidc en menb 

PUNTOSE 


final. 

PRIMERA 

NUMEROS 

Numero para cada carta 

CARTAS 

v’isualizada. 

Matriz can las cartas 
barajadas. 

PALO, VALOR 
JUEGAN 

TENEMOS 

Para cada carta, indica 
quibn la ba cogido: 

CURSOR 


Jugador 2 u 



ordenador. 

NAIPE 


T; Jugador 1. 


Q: No cogida 

todavta. 

MENOR; MAYOR 

PESO 

Cantrola la important ia de 
eager una carta. 

TURNO 

VEO 

Matriz de las cqrtas que 
estudia el ordenador cuandc 



le toca jugar. 


GUARDA 

Almacena el puesto de cada 
carta que estudia durante la 

MANO 


Punhiocion parcial de coda 
jugador. 

Matriz de puntuacianes por 
conjuntos. 

Motriz de puntuaciones por 
escaleras. 

Serial de primera jugada (a 
cero). 

Palo y valor de cada carta. 
Numera de jugadores 
humanos. 

Posicionxpara LOCATE al 
imprimir o borrar el interior 
de una carta. 

Lleva el numera de la carta 
que toca coger. 

Valares limites para la 
subrufina de lectura de un 
caracter. 

Indica a quien toca jugar en 
un momento determinado: 

—1: Jugador 2 u 
ordenador. 

1: Jugador 1. 

Indica quien empieza la 
partida. 


64 AMSTRAD Semanal 































































Este mes te pre 
sentamos una 
seccion nueva de 
alucine total. Jugar 
al reves, pasar Se 
te ma- 

Si te gusta disfrutar de 
tus juegos dandolos una dimen 
sion distinta, POKERAREZAS es 
tu seccion. 


itiunn 


programa de 
Hewson, nos de 
vuelve a los tiempos 
dorados de los viejos 
arcades. 

jMatar marcianos vuelve a 
estar de modal 
Nosotros cada vez te lo 
ponemos mucho mas facii 
descubriendote los misterios y colo 
cando en tu mano todas las vidas infi 
nitas que necesitas para triunfar. 


/ Ya esta a la venta 


I »V 1 

■ 7 * ' .. 1 

II = _ Jt- 
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CUANDO TERMINE DELI 
SABRA MANEJAR ET 


Mannar el AMSTRAD PC 1512 
es muy sencillo 
Basla mover la flecha medianle e! ralon 
y eiegir la opcion que usted desea 
As* de SIMPLE 




VEA el contenrdo de su archive El programa GEM 
jsummislrado con el equtpo) le muesira las carpetas 
que contienen los documeraos que necesita en su 
Irabaio 


SELECCIONE el grupo de document 
que usted va a Irabaiar Lleve 'a .echa 
peta eiegida y PULSE el boton del ralon 


••• 


Y POOR A DISPONR 


QUE 







I 




MESA DE TRABAJO 

Ante usted aparecen, cuando lo precise los eie- 
mentos necesanos para reator las ruirnas danas 
agenda calculadora calendar®, relop block de no¬ 
tes . 


FKHEROS 

Todos los dates que usted preasa. dastados en 
el orden que haya estebtecido y dispueslos para su 
uso, cuando los necesrte. 


DiSEHO 


Los programas de GEM le facrlrian el disefi sele 
cionando, medianle el raton las herrame "is nr 
sanasparacadacaso 


PROi 

mbn 
de da' 
p esei ■ 



sk tss ia« tss’iai 

UM UBI» Hmm 9MM C,m* 


jSay* m i#5 \as uu .i.ai 

;sr- m *$! m m m 

w* tmm imm m»j» xmm «,tu 


CONTABIUDADES 

La puesia al dia de los asienios contables de su ao- 
tividad o su negocio es posible con la taemdad que 
le proporcionara drsponer del progrttma espqcrlico 



PRIVEUONIS F1NANC1ERAS 

Realice sus previsiones econormcas medianle la uli- 
Irzacion de una Hoja de Calcuio electronics. Estima- 
oones estadrsticas, presupuestos.. seran efectua- 
dos con rapidez y maxima eficaca 


GRAHCOS 


Traslade a graficos profesionales el re c 
actividad o su negocio, El resumen de 
cesita este compiemento idea! 


'“ado de su 
dates ne- 


' _ \ 



t. 


PARA HAS WFORMACION RUEGO: 
O ENVJO DOCUMENTACJON POfi CORPEO 


Yi 


ITT 


91 4592238 4592348 
93-3251512 


ASI ! 

DEL 


Aravaca 22 26040 Madrid Tel 459 30 01 Tete* 47660INSC i Fa* 4592292 DeW# 
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; UEER ESTE ANUNCK), 
ESTE ORDENADOR... 



CONSULTE el documento elegido estudrando y 
pensando las modificaaones que quiere realizar 



TRABAJE comuntcandose con el ordenador en 
castellanomediante la accidn del raton y el teclado 
mlroduciendo los dalos que necesile 


m DQ PROGRAMA 
ECESITL 




OCESADOR DE TEXTOS 

k vjmbirardo la accion del raion con la miroduccidn 

:e- de dalos medianle el leclado. puede resolver sus 

jresemaoones de escritos, documenlos. cartas 




jf EL ORDENADOR 
DELANO 

REVISTA 

V ,1>1 W#R1,D 


Y \ LO SABE 

ASISU NEGOCIONOSE IIESCAPARA 

KLASMANOS. 


faitagona 


HO Tel 32510 58 08015 Barcelona Detegaoon en Cananas O Bemaoio de la Torre 6 1 B Tel 231133 3500? Las Palmas de Gran Canaria 
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Pasamos revista a 
uno de los grandes 
programas de esa 
historia llamada 
PC, se trata de 
Symphony, uno de 
los mas potentes y 
completos paquetes 
integrados que hoy 
se ofrecen en el 
mercado . 


Symphony 


Fco. Javier Barcelo Taboada 
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L os ordenadores personates 
han ido invadiendo las 
oficinas, primero poco a 
poco, y luego aumentando 
la velocidad, hasta llegar al 
crecimiento actual. Los 
programadores y demas 
operadores de ordenadores han 
pasado de ser unos tipos raros 
que de manera extrana lograban 
que una inmensa maquina les 
proporcione montones de listados, 
a ser los hijos de cualquier vecino. 
Los lenguajes se han hecho mas 
abiertos, y los programas se han 
simplificado hasta el punto de que 
una mayori'a de usuarios finales de 
ordenadores no tienen ni la mas 
remota idea de que es un programa. 

Pero no todo el software ha ido 
enfocado a esos usuarios finales. 

A la vez, muchos profesionales se 
han ido metiendo, no con 
aspiraciones de programar sino de 
«manejar» un ordenador de 
manera lo mas efectiva posible. 
Para ellos ha nacido un software, 
mas o menos complicado de 
manejar, con microlenguajes de 
programacion, 
capaces de realizar 
las mas diversas 
tareas. Dentro de 
este tipo estan los 
paquetes integrados. 

Y dentro de 
estos, Symphony es 
uno de los mas 
famosos. 


Graf ms, base de datos, 
comun tamnes, hoja de taUulo y 
procesador de textos todo ello 
integrado en un solo programa 


Realizado por los 
autores de la hoja de calculo 
LOTUS 1-2-3, un autentico 
estandar en programas de este 
tipo, su aparicion ha sido seguida 
con gran expectation, aunque los 
resultados no han levantado el 
entusiasmo de su predecesora. 

Symphony, como paquete 
integrado, es una hoja de calculo, 
un procesador de textos, una base 
de datos, un paquete de 
comunicaciones y un programa de 
graficos. Es integrado porque 
todos los programas comparten y 
actualizan la informacion de los 
ficheros. Y es dificil de manejar 
precisamente porque hace todo eso. 


Como funciona 

Al cargar el programa aparece 
una pantalla que resultara familar 
a usuarios de hojas de calculo. La 
tipica disposition en filas y 
columnas, y dos lineas superiores 
para menus y mensajes. Toda la 
aplicacion gira en torno a esta 
pantalla, dado que hasta el 


procesador de textos la usa. De 
hecho, un texto aqui no es mas 
que una hoja de calculo rellena de 
caracteres alfanumericos. Aparte 
de esta pantalla, Symphony 
permite abrir ventanas auxiliares 
en la pantalla, que pueden 
contener informacion de distintos 
entornos de la aplicacion. El uso 
de las ventanas es imprescindible 
para integrar los distintos 
programas. 

Las funciones de todos los 
programas se seleccionan a traves 
de menus que se activan con 
distintas combinaciones de teclas 
de funcion. 

Y algo que a lo mejor 
sorprende a muchos. Los 512 Kb 
de memoria RAM del Amstrad 
PC, si bien permiten funcionar 
aceptablemente bien, no son 
demasiados para Symphony. Este 
programa, que teoricamente 
soporta una hoja de calculo con 
hasta dos millones de celdas, 
resulta un poco derrochon de 
RAM y ni con mucho se puede 
alcanzar ese tamano. No obstante, 


si necesita realizar calculos de ese 
tamano a lo mejor se ha 
equivocado de ordenador y lo que 
necesita es un CRAY... 


La hoja de calculo 

Es la parte mas importante del 
programa. Para los usuarios de 
LOTUS 1-2-3, funciona de 
manera similar, aunque es mas 
grande y potente, y dispone de 
mas comandos. 

Al igual que en otras hojas, es 
posible recorrer toda la superficie 
de trabajo de celda en celda y de 
pantalla en pantalla. Pero dado el 
tamano posible de la misma, en 
cuanto la hoja sea un poco grande 
se hace necesario dar nombres a 
determinadas celdas y moverse a 
traves de estos. 


Proceso de textos 

Dentro de la pantalla principal, 
al activar el proceso de textos 


Mundo del 

PC 

aparece en la linea de estado la 
palabra DOC, que indica que se 
esta creando un documento. La 
pantalla cambia a una zona en 
bianco, donde se puede empezar a 
teclear texto, con una linea 
superior de formato y otra que 
indica las funciones vigentes y la 
position en la que se encuentra el 
cursor. 

Posee las habituales funciones 
de edition, justification, avance 
automatico de linea, reformateo 
de parrafos y desplazamiento de 
texto, asi como 
busqueda/sustitucion. 

Con bastante practica se pueden 
lograr combinaciones tan 
atrayentes como tener varias 
ventanas, cada una con el texto de 
un fichero, y mover bloques de 
uno a otro fichero. 

La ventaja de la 
integration dentro 
del proceso de 
textos es que se 
pueden incluir datos 
de ficheros de hojas 
de calculo sin 
necesidad de 
teclearlos, y que si 
estos datos se 
alteran a traves de la hoja, 
quedan modificados tambien en el 
documento. Una option 
francamente interesante. 

Y otra option importante es su 
capacidad para nombrar, grabar y 
posteriormente incluir en otros 
documentos, parrafos sueltos. 
Ademas, mediante funciones 
macros se pueden almacenar 
frases para utilizarlas de la misma 
forma. Ademas, se pueden dar 
nombres a lineas, de manera que 
el movimiento por el texto sea 
mas rapido. 

Comunicaciones 

Symphony es capaz de realizar 
de manera efectiva cualquier tipo 
de comunicacion asincrona. Los 
datos recibidos de esta manera 
son almacenados bien en una hoja 
de calculo, o bien en una hoja de 
texto tipo DOC. 

El programa dispone de 
funciones de marcado automatico, 
acceso automatico al ordenador 
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con el que se comunica y 
contestation automatica. 

Los distintos parametros de 
cada transmision se pueden 
almacenar en una hoja de ajustes, 
donde iran rn'iniero de telefono, 
codigos de acceso al ordenador 
conectado y tipo de protocolo. Se 
pueden tener tantas hojas como 
distintas conexiones se hagan, y 
activarlas de manera sencilla. 

Bases de datos 

Simphony tambien puede 
mantener una base de datos. La 
manera de trabajar con ella, al 
principio resulta un poco 
complicada, aunque con el uso se 
revela comoda y potente. 

Tanto para crear el diseno del 
fichero como para anadir datos al 


fichero, hay que hacerlo a traves 
del formato llamado FORM, 
mientras que para operaciones 
como la busqueda, clasificacion, 
extraction de datos, etc..., se 
tiene que ir al formato de hoja 
(SHEET). 

Posee caracterfsticas avanzadas 
como la comprobacion de los 
datos introducidos, 
establecimiento de un formato de 
entrada fijo y localization de 
datos por aproximacion. 

Como limitaciones, presenta la 
del tamano maximo de un campo, 
que no puede exceder de 255 
caracteres, y que los formatos de 
introduction de datos deben caber 
en una sola pantalla y cada 
campo no puede exceder de una 
h'nea. La busqueda admite 
caracteres universales del mismo 
tipo que los utilizados en MS- 
DOS, que son la interrogation 
para una letra y el asterisco para 
una palabra. 

Graficos 

Las posibilidades que posee 
Symphony para realizar graficos 
en pantalla resultan francamente 
buenas. Sorprendentemente, a la 
hora de pasar estos al papel, la 
cosa varia un tanto. No obstante 
el proceso resulta sencillo dado 
que solo hay que indicar de que 
fichero de hoja de calculo se han 
de sacar los datos, y especificar 
los ajustes correspondientes. 

Al hacer los graficos por 
pantalla, haciendo uso de las 
ventanas, se pueden lograr efectos 
tan interesantes como —por 
ejemplo— presentar los valores de 
la hoja de calculo, algun texto 
explicativo y el propio grafico 
simultaneamente, cada parte en 
una ventana. 

A la hora de imprimir, 
desgraciadamente el proceso 
resulta distinto. Primero se 
almacena el grafico en un fichero 
en disco, y posteriormente otro 


El problema de este 
tipo de programa 
radha en su 
difiwltad y sus 
gruesos y cabal1stitos 
manuales. 




Symphony posee una serie de 
comandos, que combinados en 
MACROS consigue un altisimo 
nivel de automatization. Un 
MACRO no es mas que una lista 
de comandos que se ejecutan uno 
tras otro, al llamarlo con su 
palabra clave. Aunque al principio 
no lo parezca, se pueden lograr 
resultados comodos y muy 
potentes de esta manera, aunque 
quiza el tiempo necesario para 
aprender y dominar su uso los 
hago poco menos que prohibitivos 
para personas muy ocupadas. 


Documentation 

El paquete viene bien surtido de 
libros. Ademas, un curso tutorial 
ayuda a entrar dentro de su 
mtrincada estructura. En este 
aspecto, se ha hecho un esfuerzo. 
Pero quiza los resultados no son 
los deseados. Libros tan gruesos 
asustan en los primeros contactos, 
y son bastante incomodos de 
consultar. Demasiada materia a 
leer. Aunque por otra parte, esto 
es logico. Dada la capacidad del 
programa, se hace dificil explicar 
sus recovecos en menos texto. De 
todas maneras, los dos manuales 
se pasan bastante rato pasandose 
la bola, esto es, llamandose el uno 
al otro, con lo que, unido al 
programa en si, hace que el 
aprendizaje no sea precisamente 
cuestion de unas horitas. 


Conclusion 

No cabe duda de que 
Symphony es un gran paquete. Y 
quiza ahi este su problema. Si 
necesita una hoja de calculo, se 
obtienen similares resultados con 
una hoja tipo LOTUS 1-2-3. Una 
base de datos hace el mismo o 
mejor trabajo y lo mismo los 
demas programas. No parece la 
solution ideal, a no ser que se 
necesite de un nivel de integration 
sumamente alto, fuera del alcance 
de paquetes separados, o que le 
guste explorar y aprender poco a 
poco. 
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gem 

X)RAW 


Como copiar 
parte de un dibujo 


en otro 


por Fco. Javier Barcelo Taboada 


em Draw es una 
aplicacion potente, 
aunque la rapidez no sea 
su virtud principal. Por 
esto, a la hora de ahorrar tiempo 
en la realization de un dibujo, si 
alguna parte de el esta grabada en 
otro, o bien el dibujo es 
compuesto, se puede copiar esta 
parte de un dibujo a otro. 

La manera mas facil, aunque 
quiza no la mas rapida, seria 
borrar del dibujo final y partir de 
ahl. Pero esto puede no ser 
posible, porque se necesitan partes 
de varios dibujos, por ejemplo. 

En este caso, habra que realizar 
los siguientes pasos: 

1. Empezar con una pantalla en 
bianco, o bien, como se dice en el 
apartado anterior, partiendo de 
un dibujo en el que se haya 
borrado todo lo no necesario, de 
manera que quede solo la parte 
del grafico a utilizar. Es mas facil 
si al elegir este dibujo se opta por 
aquel que tenga la parte a copiar 
mas grande o complicada. 

2. Colocamos la pantalla 
anterior de modo que quede en 
bianco la mayor parte posible de 
la misma. Esto se hace utilizando 
el cursor y las correderas. Un 
buen punto puede ser la esquina 
inferior derecha de los limites del 
dibujo. 

3. Sin cerrar el dibujo, aunque 
conviene grabarlo antes, abrimos 
el siguiente dibujo del que se va a 
tomar un fragmento. Encima de 
la pantalla actual, aparece una 
pantalla mas reducida con el 
dibujo cargado. 

4. Seleccionamos la o las partes 
a cambiar del dibujo y pulsando 
el boton izquierdo del raton 
(aparecera una mano) movemos la 
parte seleccionada hasta que se 
saiga de la pantalla de su dibujo y 
este encima de la pantalla del 
nuevo dibujo. Soltamos el raton, 

y ya esta copiado en la pantalla 
final. 



5. En caso que vayamos a 
realizar esta operacion con mas 
dibujos, se cierra la segunda 
pantalla senalando con el raton la 
esquina superior izquierda de esta 
pantalla, con lo cual aparece otra 
vez solo el dibujo final. Antes de 
repetir el proceso es mas comodo 
«aparcar» el fragmento nuevo del 
dibujo al lado de los otros, de 
manera que podamos tener la 
pantalla despejada para copiar 
otro fragmento. 

6. Para repetir la operacion 
volver al punto ties. 

En muchos casos, segrin el 
tamano del fragmento a copiar. 



puede ser necesario variar el 
tamano del dibujo secundario, o 
incluso seleccionar para el dibujo 
principal el tamano de pagina 


Eniles tinea tcfor inw 



"" • 'ir* 11 • 


AMSTRAD Sananal 71 



















































Con el objeto 
seleccionado lo 
desplazamos a la 
pantallay lo 
dejamos caer en el 
sitio correcto. 



completa, para disminuir la zona 
de pantalla ocupada. No obstante, 
basta con situar el puntero, al 
mover el fragmento de dibujo 
viejo al nuevo, en cualquier zona 
del dibujo nuevo que no este 
tapada por la pantalla del dibujo 
viejo, aunque el fragmento que no 
quepa, para que este quede 
copiado y al desaparecer esta 
pantalla aparezca el fragmento en 
su totalidad. 


DIAGRAMAS 
DE FLUJO 

Dentro de las multiples 
aplicaciones que tiene Gem Draw, 
y con el uso de una de las 
librerias que acompana al 
programa, resulta sencillo realizar 
diagramas de flujo, esenciales 
(aunque poco usados, por 
desgracia), dentro de la 
documentacion que debe 
acompanar a un programa, para 


poder comprender el modo de 
operar del mismo. Ademas, tienen 
multiples aplicaciones en otros 
campos. 

Lo primero es localizar el 
subdirectory Flujo, bien en el 
disco Gem Draw Bussines library 
o bien, si se tiene instalado el 
programa en el disco duro, como 
directorio del directorio principal. 

Dentro de este subdirectory 
hay tres dibujos distintos. Cada 
uno de ellos tiene varios signos de 
los utilizados en estos diagramas. 
Lo ideal es tener el diagrama ya 
dibujado en sucio. De esta 
manera, en una pantalla en 
bianco se van copiando un 
ejemplar de cada signo que se 
vaya a utilizar. 

Una vez que se tienen todos los 
signos a utilizar en la pantalla 
principal, solo queda colocarlos 
en la posicion deseada, 
duplicando los signos que se 
necesiten varias veces, unirlos con 
flechas y colocar el texto en las 
posiciones correspondientes. 
Luego, a traves de Output se 
imprime el resultado y a empezar 
con la proxima tarea. 



U na de las ventajas de 
Gem Write es la 
facilidad para manejar 
textos por bloques. Esto 
permite copiar bloques de lineas 
en otra zona del documento, 
moverlos a otro lado, e incluso 
copiar bloques en el disco. 

Esta posibilidad permite grabar 
parte del texto para incluirlo en 
otro documento, con lo cual — 
por ejemplo— se puede escribir 
un libro por capitulos y decidir 
posteriormente que determinado 
parrafo este en otro capitulo, y no 
tienes mas que grabarlo por 
separado y cargarlo en el otro 
capitulo. 

Para realizar todo esto es 
necesario «marcar» primero la 
zona de texto. Esto se puede 
realizar de dos maneras. 

La primera, utilizando el ratdn, 


Escriba 
por bloques 


consiste en situar el cursor en la 
primera palabra del texto a 
seleccionar y se pulsa el boton 
izquierdo del raton. Despues, sin 
soltar el boton, se mueve el cursor 
a la ultima palabra del bloque y 
se suelta el boton. Con esto, el 
texto en video inverso queda 
seleccionado. 

La otra manera es similar, per 
utilizando las teclas de funcion. 
Igual que en la anterior, primero 
hay que situar el cursor en la 
primera palabra a seleccionar. 
Despues se pulsa la tecla F5 y 
todo el texto entre este punto y el 
final del texto queda en video 
inverso. Si se desea una zona 
menor, basta con situar el cursor 
de la ultima palabra de la zona y 
pulsar la tecla F6. Con esto, desde 
ese punto hasta el final del texto 
queda «desseleccionado» yt por 


| 



tanto, en video normal. 

Una vez seleccionado el texto, 
se podran utilizar las opciones de 
los menus para grabar, SOLO se 
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Las tres Jdses de la 
grabacion de un 
bloque. Realmente 
es sencillo y rapido. 


graba la zona seleccionada. Esta 
es la manera de grabar una zona 
de texto, pero si no se tiene 
cuidado se puede creer que se ha 
grabado todo el texto y salir del 
programa, perdiendo el resto del 
texto. 


COMANDOS DENTRO 
DE DOCUMENTOS 

Para realizar determinadas 
funciones y efectos de impresion, 
se incluyen comandos en el texto. 
Para que Gem Write los 
diferencia de textos normales y no 
los imprima, sino que mande el 
significado de los mismos a la 
impresora, hay que teclar en la 
primera y segunda columna de la 
llnea un punto (...). Esta linea no 
se cuenta con lo que el paginado 
sigue siendo correcto. Ademas, de 
esta manera, tambien se pueden 
poner comentarios que tampoco 
se escribiran en el documento. 

Hay siete comandos que 
reconoce Gem Write sus funciones 
son las siguientes: 

...PAGE indica el final de una 
pagina. Al imprimirse el 
documento en este punto se 
realiza un salto de pagina. 
Logicamente, en la pantalla, 
despues de este punto el numero 
de lineas vuelve a ser uno en una 
nueva pagina. 

...HEAD/FOOT seguidos de 
dos numeros que indican el 
numero de llnea donde empieza el 
texto de cabecera o pie de pagina, 
una clave y el texto de dicha 
zona. La clave sera un L si el 
texto se desea a la izquierda, una 
R para la derecha, una C para 
centrar el texto y una A para 
alternar el lado de impresion en 
cada pagina. 

Para numerar las paginas, entre 
el texto de la cabecera debera 
incluir los signos ## separados por 
un espacio en el lugar donde se 
desea que aparezean los numeros. 

Por ejemplo, el comando 
siguiente sitria una linea de 
cabecera en la linea cuatro de 
cada pagina, centrado, que indica 
la pagina. 

...HEAD04CCapitulo 8 pag. 
Num.: ## 

Capitulo 8 pag. Num.: 1 

..PGNOn situa el valor n como 
numero de pagina, 
independientemente de la cuenta 
que haga Gem Write. De esta 
manera se pueden enlazar unos 


documentos con otros para que 
tengan numeracion correlativa. 

...END para la impresion de un 
documento en ese punto, como si 
del final del documento se tratara. 

...CMDn manda el codigo 
especial n a la impresora. Esto 
permite enviar los codigos ASCII 
necesarios a la impresora para 
realizar efectos que no esten 
explicitamente comprendidos entre 
los de Gem Write. Y resulta 
sumamente util en caso de utiiizar 
una impresora mas potente que la 
Amstrad. 

...GEM es el comando que se 
introduce automaticamente en el 
lugar del texto donde se va a 
intercalar un grafico. Despues del 
comando vendra el nombre del 
grafico, con su extension y el 
nombre del directorio en el que se 


encuentre, si es distinto al del 
documento en cuestion. Tambien 
acompana al comando el numero 
de lineas que ocupa el grafico 
para tenerlas en cuenta al paginar. 
Si no se tiene activado el modo 
grafico, apareceria la siguiente 
linea uutmaticamente al cargar un 
dibujo: 

...GEM,20,B:/IMAGES/DIBUJO- 

.GEM 

pero antes de imprimir, es 
conveniente activar los graficos 
para observar como queda este en 
la pantalla, pudiendo seleccionarse 
y moverse o copiar a voluntad. 

Estos comandos completan el 
Gem Write ampliando sus, ya, 
muchas posibilidades para crear 
documentos complejos. 
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NfOBiTES 



Pequeno 
pero duro 

A si es el nuevo disco duro de 
20 Mb que comercializa 
Indescomp: tan pequeno como 
una tarjeta, pero tan potente 
como un disco duro 
convencional de media altura 
Este disco duro tiene la ventaja 
de ocupar un mmimo espacio 
dentro de tu Amstrad PC 1512, 
ya que se aloja en el 
compartimento posterior de la 
unidad central y se conecta a 
uno de los tres slots de 


Spaguetti disco 

Directamente desde Italia nos 
llega esta nueva marca de discos 
de tres pulgadas para su 
utilizacion en los Amstrad CPC 
664/6128 y PCW 8256/8512. 

Se sirven, o bien en cajas de 
10 umdades o bien como discos 
sueltos, al precio umtario de 
470 ptas. en Informatica 
Papelerfa Plaza de Castilla, 
junto al Asador de la Plaza de 
Castilla de Madrid Tel.: (91) 
733 22 43. 

Los discos estan contenidos 
en una bolsa y con etiquetas 
adhesivas para su identificacion. 


expansion; por ello, la 
instalacion de la disco-tarjeta de 
Indescomp es simplemente 
sencilla: retirar la tapa 
posterior, insertar la tarjeta, 
atornillarla con un 
destornillador de estrella y 
volver a tapar: sin soldaduras ni 
cables extras. 

Para los usuarios del 
Amstrad PC 1512 con dos 
unidades de floppy, les vendra 
como anillo al dedo, si quieren 
convetir su ordenador en un 
sistema de disco duro. 

En la misma disco-tarjeta se 
incluye el disco duro 


propiamente dicho —un NEC 
de 3 1/2 pulgadas— y la placa 
controladora capaz de manejar 
a la vez un segundo disco duro. 

Con la disco-tarjeta se 
entrega, ademas, un completo 
manual y un disco de 5 1/4 
pulgadas, que contiene diversas 
aplicaciones para el disco duro, 
como la de la instalacion 
en el mismo sistema operative 
Gem. 

Se ofrece con un ano de 
garantia y se vende por 123.988 
ptas. en Chips & Tips, Paseo de 
la Castellana, 126 28046 
Madrid. Tel (91) 262 23 03. 




Discos de trabajo 

Otro producto de la casa 
britanica Acco que traemos a 
las paginas de este numero es 
este practico transportador para 
ocho discos de tres pulgadas, de 
los que se utilizan para el 
Amstrad CPC y PCW. 

No es un archivador, como 
podriamos suponer, ya que 
unicamente puede dar cabida a 
los mencionados ocho discos. Su 


verdadera mision consiste en 
un soporte de pocos discos 
para llevar en mano de casa 
a la oficina, o simplemente 
como estuche de algun 
disco que utilizamos con 
frecuencia. 

Este practico invento lo 
podreis adquirir en Master 
Computer, Plaza de Cristo Rey, 
3, esquina a Cea Bermudez 
28040 Madrid Tel.: (91) 

244 59 36, por 990 ptas. 
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Con personalidad 


Si eres de los que se 
identifican con el fenomeno 
Amstrad, o Io que es lo mismo, 
eres un fanatico de todo Io que 
inventen los chicos de Alan 
Sugar, aqui te presentamos 
estos discos de 5 1/4 pulgadas 
para tu PC 1512, que no 
solo llevan la etiqueta de 
tu ordenador favorito, 


sino la misma garantia en 
cuanto a calidad de 
funcionamiento. 

Los encontraras en Master 
Computer, Plaza de Cristo Rey, 
3, esquina a Cea Bermudez. 
28040 Madrid. Tel.: (91) 

244 59 36 en cajas de 10 discos 
o en unidades sueltas al precio 
unitario de 250 ptas. 


A lo largo 

Para los propietarios de un 
Amstrad PC 1512 que tengan 
problemas por la estrechez de 
su mesa de trabajo, aqui teneis 
este archivador para discos de 
5 1/4 pulgadas que puede 
recoger en su interior hasta 
un maximo de un centenar de 
discos. 

Por sus dimensiones ocupara 
un ininimo espacio entre la 
impresora y el ordenador, y 
facilitara la consulta y acceso a 


los discos que contiene gracias a 
los 10 separadores que se 
insertaran sobre el fondo del 
archivador. 

Esta fabricado en plastico de 
color bianco, a juego con la 
carroceria del PC 1512, con 
tapa en color ahumado 
transparente abatible y con 
cierre por Have. 

Si os interesa el archivador, 
lo encontrareis en Micro-1, 
Duque de Sesto 50. 28009 
Madrid. Tel.: (91) 275 96 16 y 
cuesta 3.400 ptas. 


La eterna 
juventud 

Cualquier maquina esta 
sometida a un desgaste en 
largos tiempos de utilization. 

En lo que a nosotros nos 
concierne, las unidades de disco 
blando del Amstrad PC 1512 
no son ninguna exception. Las 
cabezas de lectura de ambas 
caras estan expuestas a la 
abrasion causada por el polvo y 
la grasa, entre otros agentes 
malignos que pululan por 
nuestra atmdsfera. 

La prevention de este cancer 
de las unidades de disco, no 
solo evitara los posibles errores 
de lectura y grabacion que se 
puedan producir, sino que, 
ademas, prolongara la 
longevidad, tanto de las cabezas 
lectoras como de los eleinentos 
mecanicos del disco. 

La solution que nos propone 
Acco consiste en este practico 
kit de puesta a punto, que 
incluye un par de discos 
absorbentes limpiadores que se 
mtroducen en un soporte similar 
al de un disco conventional, y 
un pequeno spray para 
impregnar la superficie de los 
discos limpiadores. 

Si estais interesados en ello, 
lo podreis encontrar en Master 
Computer, Plaza de Cristo Rey, 
3, esquina a Cea Bermudez. 
28040 Madrid Tel. (91) 

244 59 43, por 3 900 ptas. 
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Disco duro en tarjeta 
para Amstrad PC 


Hace pocas semanas pasaba por estas 
paginas una version de disco duro para 
Amstrad de los conocidos como de position 
horizontal. En este numero volvemos sobre el 
tema, pero en esta ocasion con un hard-disc 
vertical. Se trata de la version oficial ofrecida 
por el importador oficial Amstrad Espana. 

U n disco duro, o no capacidad, 20 megas en el caso 

Removible que prefieren que analizamos, y que vienen a 
algunos, es basicamente suponer unos 50 discos flexibles 

un sistema de de los que en la actualidad posee 

almacenamiento de alia el Amstrad PC. Existen dos 


Un detalle 
de la tarjeta 
controladora 
donde 
pueden 
apreciarse 
los swiches 
de 

configuration. 


modelos de disco duro de los que 
pueden instalarse en el interior del 
equipo. Por un lado, estan los 
horizontales que suelen ir alojados 
en una de las bocas que la carcasa 
de la unidad central trae prevista 
para los floppys. El otro tipo se 
aloja en uno de los slots traseros 
en forma de tarjeta. Esta 
disposicion permit e al usuario 
seguir trabajando con dos 
unidades de disco, aunque es 
dificil, dada la capacidad del 
disco duro, que esta configuration 
sea necesaria. 

No obstante, aquellos que 
comenzaron con dos disqueteras y 
desean ampliar ahora su equipo, 
pueden optar por un disco duro 
de estas caracteristicas cuya 
instalacion no exije mutilar una 
de las capacidades de su actual 
sistema. 

Otra de las ventajas de los 
discos duros en tarjeta, se 
encuentra en su instalacion. Para 
ello lo unico que hay que hacer es 
conectar la tarjeta en cualquiera 
de los slots libres. La unica 
precaution que debe observarse en 
esta operation es que el 
ordenador se encuentre 
desconectado de la red, ya que de 
no ser asi los dafios que podemos 
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HARCVNARE 


producir en nuestro equipo 
pueden ser irreparables. 

Tal y como puede observarse en 
la fotografia, la tarjeta 
controladora, y lo que es 
propiamente el disco duro, vienen 
incluidos ambos, uno al lado del 
otro, en la propia tarjeta. 

En la tarjeta controladora 
pueden observarse una serie de 
swiches que permiten utilizar el 
disco duro en distintas 
configuraciones. Tal y como se 
presenta la umdad, puede ser 
utilizada en ordenadores de uno o 
dos floppys, pero en el caso de 
poseer ya un disco duro en el 
interior del equipo, la 
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configuracion debera ser cambiada 
en funcion del nombre de unidad 
que usted desee asignarle. Para 
esta tarea sera su distribuidor el 
que debera informarle de la nueva 
posicion de los conmutadores, ya 
que en el manual que se entrega 
no viene ninguna informacion 
sobre este tema. 

En nuestro caso, el disco que 
cayo en nuestras manos se 
encontraba ya formateado y nada 
mas instalarlo comenzo a 
responder. En su interior tenia ya 
grabado todo el sistema operativo 
y toda la instalacion Gem lista 
para su uso. No obstante, si su 
disco duro no present ase estos 
ficheros, puede instalarlo usted 
mismo. Para ello, simplemente, 
una vez formateado y realizadas 
las particiones del DOS, debera 
ejecutar el fichero bat, 

CONFING, que aparece en el 
disco que deberan entregarle con 
su hard-disc. Tras su ejecucion se 
le ira pidiendo que inserte los 


discos originales, que le dieron 
con su ordenador, los cuales iran 
siendo copiados uno tras uno, y 
metidos en las carpetas que sean 
necesarias. 

En general, los resultados que 
hemos obtenido con el disco han 
sido bastante buenos, con un nivel 
de fiabilidad muy alto y un 
tiempo de acceso mas que 
aceptable. De todos los comandos 
de manejo del disco duro que 
posee el DOS, solo el fichero 
Park, que aparca las cabezas en 
una zona reservada para ello, no 
funciona. Aunque segiin el 
fabricante esto no es necesario, ni 
ha sido previsto, ya que para su 
transporte, el disco posee un 
sistema automatico de fijacion de 
las cabezas que impide que 6stas 
se deslicen sobre la sensible 
superficie del disco. 

El disco duro completo, arriba la tarjeta 
controladora y abajo la unidad de disco 
propiamente. 


Como usar mejor 
eS disco duro 


La utilization correcta de 
un disco duro exige aprove- 
char al mdximo la estructu- 
ra arborescente que ofrece 
el MS-DOS. 

La situacion ideal en nues 
tro disco duro es que en el 
directorio raiz no aparezca 
ningun fichero ejecutable, 
salvo el fichero Command, 
necesario si queremos que 
nuestro disco duro sirva co¬ 
mo disco de arranque. 

La creacion de nuevos 
subdirectories o carpetas se 
realiza mediante el coman- 
do MD (make directory). 
Para cambiar del directorio 
actual a un subdirectory de 
este, deberemos utilizar la 
instruction CD (change di¬ 
rectory). 

Si deseamos borrar un 
subdirectorio ya creado, nos 


bastard con teclear RD y el 
nombre del subdirectorio a 
borrar. Para que esta ope¬ 
ration tenga exito, este de¬ 
bera forzosamente encon- 
trarse vaci'o. 

ES retroceso, una vez que 
nos hemos adentrado en la 
estructura del disco, no es 
posible realizarlo nivel a ni- 
vel, y deberemos subir de 
un salto hasta el principio. 
Para ello nos bastara con te¬ 
clear CD. 

No obstante, y a pesar de 
que usted este mas acos- 
tumbrado a utilizar su com¬ 
patible desde MS-DOS, to- 
do lo concerniente a la or¬ 
ganization dei disco duro 
lo realizard mucho mas fd- 
cilmente desde Gem, con 
simples movimientos de ra- 
ton. 






























sin duda alguna 


Juego 
de la vida 

En el numero tres de AMSTRAD 
Especial publicaron un programa 
sobre el juego de la vida, parte de 
el en Basic y parte en Codigo 
Maquina. No he tenido problemas 
con la parte en Basic, puesto que 
el menu se muestra en pantalla, 
pero me temo que la parte de 
Codigo Maquina no esta bien 
cargada, ya que al pulsar la 
opcion primera, la pantalla, en 
modo 2, muestra el mensaje 
latidos y debajo «Press Play Then 
Any Key». Teniendo un 6128 con 
disco no creo que deba salir ese 
mensaje, por lo que les ruego me 
indiquen la forma de cargar el 
Codigo Maquina de este 
programa, direction y longitud en 
bytes del misrno. 

Antonio Puro Morales 

Lo que le ocurre con el 
programa es bastanle tipico. 
Sucede en un alto porcentaje de 
casos en los que se teclean 
programas en Codigo Maquina, 
pero a partir de este numero de la 
revista nunca mas ocurrira. Para 
eso hemos pubhcado el cargador 
universal. Vamos al hecho En 
nuestros ordenadores, el programa 
funciona correctamente. No 
obstante, cuando nosotros, al 
teclear un programa en redaction 
en maquina para probarlo y 
ejecutarlo metemos la pata, que 
tambien lo hacemos en un alto 
porcentaje de veces, el ordenador 
no se bloquea, sino que aparece 
en pantalla el mismo mensaje cjue 
usted ha sufrido: «Press Play 
Then Any Key». Para serle 
francos, no nos lo podemos 
explicar, pero ocurre. Y por 
ultimo, estamos en condiciones de 
asegurarle que el listado del 
«Juego de la Vida» esta 
absolutarnente correcto. 

Bancos 
de memoria 
y Hisoft C 

1. iComo puedo utilizar el 
segundo banco de memoria en un 
CPC-6128, o en general cualquier 
ampliation, sin necesidad de 


recurrir a programas en Codigo 
Maquina, con instrucciones Peek, 
Poke, In, Out o semejantes? Me 
interesa esta cuestion para utilizar 
las ampliaciones en programas 
realizados con otros lenguajes, y 
algunos compiladores no admiten 
la inclusion de programas en 
Codigo Maquina. En concreto, 
con el que pretendo trabajar es el 
compilador C de Hisoft. 

2. iQue utilidad tiene la libreria 
EXTCMD.H que viene incluida 
con el compilador C de Hisoft y 
como se utilizaria? 

Dylan Hoffman 

No se puede acceder al segundo 
banco de memoria del 6128 desde 
Basic. Le remitimos el articulo 
«Como usar el segundo banco de 
memoria del 6128», AMSTRAD 
Semanal numero 96, paginas 
46-50, donde el tema se aborda en 
profundidad. 

El fichero del Hisoft C at 
que hace referenda es un 
Header, es detir, un lugar 
donde se hacen una serie de 
definiciones imprescindibles para 
que otras librerias incluidas con el 
compilador las utilicen. Sirve para 
que los programas escritos en este 
lenguaje corran bajo CP/M, 
siendo capaces de manipular 
ordenes del sistema operativo. 


El desprotegedor 

En la revista numero 79 
publicasteis un programa 
desprotegedor y, como 
normalmente haceis, explicais la 
forma de carga, pero lo que yo 
no se es la mecanica a seguir, si 
primero cargo el desprotegedor y 
despues el programa o si es al 
reves y que ordenes son las que 
tengo que hacer o que mandar al 
ordenador. 

Ruego me lo expliquen como si 
fueran a hacerlo en un programa, 
paso a paso. Muchas gracias. 

Por cierto, poseo el CPC 664. 

Carlos Santana 

En el articulo del 
desprotegedor hay dos 
programas: el cargador (pdgina 

21) y el listado assembler (pdgina 

22) . El proceso es el siguiente: 
teclee el programa cargador y 


salvelo en disco antes de 
ejecutarlo. Despues, teclee 
la orden: 

CALL &9000 

y listo. Tiene ya a su disposition 
los nuevos comandos. Vamos a 
coger la ocasion a! pelo y explicar 
otro punto importante. Hemos 
recibido numerosas cartas de 
lectores indicando que el 
programa no les funciona. 
Nosotros, como de costumbre, 
comparamos et listado de la 
revista con el que tenemos en 
disco, y nos coinciden 
exactamente. Tras un tiempo de 
dudas, hemos averiguado la 
causa: no ejecute nunca la orden 
cat con el desprotegedor en la 
memoria. El ordenador, cuando 
se le pide un catdlogo del disco, 
altera la memoria y la usa, 
destruyendo nuestro programa. 


Load Failed 

Trabajando con el programa 
Eamsword (del disco regalo) o 
con Eamplus (AMSTRAD Semanal 
numero 77) en mi CPC 6128, 
recientemente adquirido, me 
encuentro con el problema de no 
poder recuperar mediante la 
opcion Retrieve, los ficheros 
anteriormente grabados con 
dichos programas. 

Aparece el mensaje «LOAD 
FAILED - RETRY». 

Tras intentarlo en otro aparato 
de las mismas caracteristicas 
obtengo el mismo resultado. 

Curiosamente en la subrutina de 
carga he borrado de la linea 45000 
la orden ON ERROR GOTO 
4700. Lo intento de nuevo y me 
aparece el mensaje de error 
Improper Argument in 4540. 

Desearfa saber, si es posible, y 
si el error esta en esa linea, como 
arreglarlo. Si no es asi, <,existe 
acaso otra version de Eamsword 
que pueda correr en este 
ordenador? 

Javier Cordero Regordan 

El programa que usted tiene en 
su mano no funciona bien. Por 
desgracia, esta lleno de defectos y 
fallos. Si sus necesidades implican 
un uso frecuente de procesadores 
de textos, le recomendamos que 
escoja otro. La pequeha inversion 
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que va a tener que realizar queda 
compensacla con creces por la 
ausencia de problemas y 
«curiosidades» como la que le 
aqueja. 

Problemas 
con 3D 
Munchies 

Tengo una duda sobre el 
programa de la serie oro cuyo 
nombre es 3D Munchies. He 
seguido todas las instrucciones tal 
y como vienen en la revista, pero 
al hacer Run para que se salvara 
la parte binaria, todo va bien 
hasta la linea 270, donde se para 
y sale un mensaje que dice: 
«Overflovv type mismatch in 10». 

La linea 270 esta bien, al igual 
que todo el programa, pues lo he 
corregido varias veces. Mi 
ordenador es un CPC 6128, no se 
si a ustedes les ha funcionado 
pero lo cierto es que a mi, no. Me 
gustaria que revisaran su listado y 
si el error es suyo lo publicaran 
bien. Si no es suyo y es mio les 
ruego que me perdonen. 

Fernando Aguilar 

No hay nada que perdonar. 
Estamos encantados de intentar 
solucionar los problemas de 
nuestros lectores. El 3D 
Munchies lleva una gran parte en 
maquina, y cualquier error de 
tecleo puede causar un 
comportamiento extraho del 
ordenador. Por ejemplo, es 
posible que le aparezca un 
mensaje de error Basic como el 
que nos cuenta, sin que la linea 
10 tenga nada incorrecto. 

Creemos sinceramente que ha 
cometido un despiste al teclear el 
programa, cosa nada dificil dada 
su longitud. Por favor, revise 
cuidadosamente las Datas. 

Cuestion 
de bloques 

Me dirijo a vuestra seccion para 
que me incluyais en esta o en otra 
el primer bloque del programa de 
ajedrez publicado en el AMSTRAD 
: Especial numero cuatro. 

En este programa faltan las 10 
primeras lineas. 

Jorge Hernandez 


Que nosotros sepamos, el 
programa al que se refiere esta 
completo. Lo iinico que ocurre es 
que, en lugar de comenzar en la 
linea 10, comienza en la 110. Eso 
no indica que fatten lineas. 
Recuerde: un programa puede 
comenzar por cualquier numero 
de linea. 


Cucal 


Me ha surgido un problema al 
copiar el programa Cucal de la 
revista AMSTRAD Semanal 
numero cuatro. Una vez copiado 
todo el listado y repasado, lo 
ejecute, el juego sale bien en la 
primera pantalla, al pasar a la 
segunda, la parte derecha de la 
pantalla no se borra para cambiar 
las minas y salen muchas mas, no 
obstante, se puede jugar. No 
ocurre lo mismo al pasar a la 
tercera pantalla, es totalmente 
imposible pasar a la cuarta por la 
posicion de las minas. 

He repasado el listado y esta 
igual que el de la revista, pienso si 
dicho juego no sera apto para mi 
ordenador, que es un 464, y de no 
ser asi ruego me indiquen donde 
esta el error. 

En la misma revista viene Juega 
al Ajedrez y en la «Serie Oro» del 
AMSTRAD Semanal numero 72 el 
juego Golf, tlo puedo grabar en 
mi 464 sin problemas? 

Pedro Cerda 

Cuando uno teclea un 
programa, existen dos tipos de 
errores: los que hacen que el 
programa se detenga, faciles de 
localizar y corregir, y ac/uellos que 
permiten que la cosa funcione, 
pero mal. Creemos que su 
problema proviene de un error 
insidioso de este tipo, y no nos 
proporciona los datos necesarios 
para resolverle el problema. 

El programa Juegue al 
ajedrez corre en un 464 el 
Golf, no. 


1 <,Es correcto el teclearlo y 
grabarlo en cinta 
fraccionadamente? 

2. iEs este un juego compatible 
con el CPC 464? 

3. Cuando pongo en marcha el 
programa solo sale un rectangulo 
de caracteres rojos. iA que es 
debido? 

4. iQue debo hacer para que el 
juego marche bien? 

Por favor expliquernelo paso a 
paso, pues mis nociones de 
informatica son escasas. 

Pedro Femenia 

1. Si, siempre y cuando lo que 
usted teclee en las sesiones 
posteriores a la primera vayan en 
el orden correcto, una tras otra. 

2. No. 

3. A un previsible error de 
tecleo. Necesitamos datos mas 
concretos para poder ayudarle, 
cosas como el mensaje de error 
que el ordenador proporciona y 
en que linea. 

4. Por favor, envienos una 
carta detallando mas su problema 
y revise cuidadosamente el listado. 


No cargan 


Soy propietario de un Amstrad 
CPC 6128 y hace poco me compre 
los juegos Game Over y Army 
Moves. Al intentar utilizar los 
cargadores modifique parte de 
ellos —suprimi las sentencias 
iTape— tengo el juego en disco y 
cambien LOAD “!C por RUN 
“ARM o “GAM, segtin el juego, 
pero siguen sin funcionar. iA que 
es debido? ;,Acaso no sirven los 
cargadores para disco? Si sirven, 
^que debo hacer para que 
funcionen? 

Ramon Rosello 

Los cargadores de estos dos 
juegos son para las versiones de 
cinta. En este mismo numero, en 
las pdginas de juegos, encontrard 
esos cargadores para disco y unas 
cuantas sorpresas mas. 


Mi golf, 
mi golf 

La presente tiene como motivo 
el solicitarles algunas aclaraciones 
a ciertas dudas surgidas con el 
juego titulado Mi Golf: 


<<<<<<<<<<<<<+ 
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LOCOSCRIPT 


Formato 

de los documentos 


por Fco. Javier Barcelo Taboada 


En lo que a procesadores de texto disenados para 
Z80 se refiere, Locoscript se encuentra sin duda 
entre los mas potentes. Sin embargo, por desgracia, 
potencia siempre suele ir unido a dificultad de uso. 
Nosotros vamos a intentar que en esta ocasion, esto 

no suceda. 


esde la primera 
pantalla se observa que 
Locoscript divide los 
documentos en grupos. 
Esto no solo tiene el efecto de 
agruparlos de manera que su 
localizacion sea mas rapida, sino 
que ademas influye en su 
formato. De esta manera, cada 
grupo incluye un fichero llamado 
Plantilla.Est que define el formato 
general de los documentos. 

Este formato, llamado Formato 
Base es el que define la longitud 
de la pagina y el contenido de las 
cabeceras. Pero esto no restringe 
las posibilidades. Se puede disenar 
un formato especifico para un 
documento, e incluso para una 
parte de un documento. E incluso 
se pueden definir varios formatos 
estandar para uso en documentos 
de ese grupo. Si se disenan para 
todo el texto, y no solo para una 
zona, se llaman Plantillas de 
Grupo. 

Para definir un formato, dentro 
de los menus del texto se elige el 
menu de formatos. Dentro de este 
se puede elegir entre 
cambiar a otro 
definido previamente, 
cambiar el formato 
base y crear uno 
nuevo. Si se elige esto 
ultimo, el programa se 
sitiia en las tres lineas 
superiores, indicando 
los parametros que se 


pueden modificar. Estos son el 
paso de letra, el de linea, la 
separacion entre lineas, el tipo de 
letra y la activacion o 
desactivacion de la justificacion 
automatica del documento. 
Ademas, se pueden fijar distintos 
margenes y tabuladores, ademas 
de un Tabulador Decimal. Este 
tabulador alineara los numeros de 
distintas lineas de manera que el 
punto decimal de todos ellos este 
en la misma columna. 

A1 editar o modificar un 
formato en una determinada 
posicion del texto, solo los 
caracteres que vayan a 
continuacion y hasta la siguiente 
linea de formato se veran 
influidos por el cambio. Para que 
sea todo el texto el que se vea 
afectado, habra que hacer la 
insercion del formato en la 
primera linea del mismo. Y si se 
desea que este se grabe para 
posteriores ocasiones, habra que 
convertirlo en una plantilla de 
formato. 


la utilization de plantillas de 
formato, economiza y mejora 
tonsiderablemenfe las sesiones de 
trabajo con Locoscript. 


Una plantilla de formato no se 
conforma con definir los 
parametros antes mencionados, 

En ella se fija el tamano de la 
pagina, como se distribuyen las 
lineas entre la cabecera y el pie de 
la pagina, asi como las 
caracteristicas de los textos de 
cabeceras y pies de pagina, 
situacion de las mismas y 
numeracion de paginas. Tambien, 
para textos justificados, se fijan 
normas de impresion para 
parrafos y lineas cortadas. 

Las posibilidades de realizar 
textos para las cabeceras y pies es 
muy completa. Se puede optar 
por poner textos diferentes en las 
paginas pares y las impares, asi 
como colocar los textos centrados 
o alternados segun sea pagina par 
o impar, y la colocacion de los 
numeros de la pagina de igual 
forma. 

La plantilla de formato no es 
mas que otro fichero de 
Locoscript que se puede editar, 
modificar, copiar o borrar. Al 
llamarse el fichero Plantilla.Est, 
cuando crear otro 
documento, el 
programa lo que hace 
realmente es buscar un 
fichero con este 
nombre, y copiarlo 
con el nombre del 
documento nuevo y 
editarlo. Por ello cada 
grupo debe tener una 
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Plantilla de Grupo. Para el caso 
de que el programa no encuentre 
plantilla en algun grupo, utiliza 
una plantilla propia por defecto. 
Esta viene preparada para papel 
A4 en paso de doce carateres por 
pulgada. 

Si al crear una plantilla de 
grupo se definen varios formatos 
standar, a los que el programa 
dara un numero, al funcionar con 
dicha plantilla se pueden utilizar 
con elegir la opcion de cambiar 
formato durante la edicion. Si se 
tiene activada la funcidn mostrar 
regia, se vera que aparece la 
nueva regia de formato en el 
punto donde estaba el cursor 
cuando se selecciono la opcion. 

De esta manera se pueden 
cambiar con poco trabajo el 
formato de un texto cuantas veces 
se quiera. 

Ademas de todo esto, se puede 
elegir que se impriman los ceros 
con o sin barra inclinada, si la 
coma es un punto o una coma, y 
el numero maximo de formatos 
que se van a crear, hasta un limite 
de 99. Fijar un numero 
excesivamente mayor al de los 
formatos que realmente vamos a 
crear es un desperdicio de 
memoria y espacio en disco. 


Para evitarse el paso por los 
distintos menus cuando se ha 
practicado un poco con el 
programa, basta con teclear las 
teclas mas o menos que esten al 
lado de la barra espaciadora, y la 
abreviatura del codigo deseado. 

La abreviatura mas rapida es la 
compuesta por las letras en 
mayusculas que aparecen en los 
menus. Pero tampoco es necesario 
saberse todas ellas, dado que el 
programa analiza los caracteres 
introducidos hasta que da con un 


codigo que contenga, aunque sea 
en otro orden, las letras 
introducidas hasta el momento. 

En cuanto encuentre un solo 
codigo que cumpla esta condicion 
ejecuta la orden sin esperar a 
pulsar INTRO. De esta manera el 
manejo de las opciones gana 
mucho en velocidad. 

Y como intermedio, existe un 
menu intermedio, donde estan 
contempladas algunas funciones, 
las mas utilizadas, de manera que 
tampoco haya que recorrer los 
menus para llegar a una funcion 
determinada. 


Para realizar documentos 
comerciales, en los que hay 
cantidad de frases que se repiten, 
se puede utilizar una facilidad 
parecida a la de los bloques. Cada 
grupo de textos puede contener un 
fichero llamado FRASES.EST, 
que contenga hasta 29 frases, 
llamadas desde A hasta Z, y que 
pueden ser introducidas en el 
texto de manera muy rapida. Las 
limitaciones de este fichero son 
que cada frase no debe ser mayor 
de 255 caracteres, pero teniendo 
en cuenta que el maximo de 
caracteres por fichero debe ser 
mayor de 550. Esto es una 
pequena limitacion, pero se puede 
obviar relativamente teniendo 
varios ficheros. Solo uno podra 
tener la extension .EXT, pero se 
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pueden renombrar segun cual se 
vaya a utilizar. 

Para utilizar esta funcion, hay 
que recurrir al menu de bloques. 
En este aparece un recuadro que 
pone FRASES y una serie de 
letras. Estas letras corresponden a 
las que todavia no estan usadas en 
el fichero FRASES.EST 
correspondiente al grupo del 
fichero editado. Pulsando una de 
ellas, el texto que haya sido 
seleccionado previamente es 
grabado incluido en el fichero de 
frases. Si por el contrario, se elige 
una frase que ya exista, esta 
queda insertada en la position 
donde estuviese el cursor en el 
momento en el que se invoco el 
menu. 

El problema de la justification 
automatica es que en una linea 
puede haber pocas palabras y muy 
grandes. En este caso, 
normalmente al justificar quedan 
espacios excesivamente grandes 
entre las palabras. El efecto visual 
que esto produce es bastante 
desagradable. 

Esto se puede remediar 
manualmente, insertando un guion 
y un espacio a continuation. Pero 
si posteriormente se insertan 
palabras antes de esta, al volver a 
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justificar el guion no queda en la 
posicion deseada. 

La manera de evitar esto es 
utilizar una facilidad de 
LOCOSCRIPT llamada Guion 
Blando. Esto se hace desde el 
menu de control de li'neas. A1 
activar esta opcion, el programa 
inserta el guion en la posicion del 
cursor. Pero si posteriormente se 
modifica el texto, y este guion no 
coincide con la ultima columna 
del texto, es eliminado y la 
palabra unida otra vez. De esta 
manera se evitan bastantes 
manipulaciones en el texto. 


La presentation de 
textos e informes 
puede ser praiticamente 
perfecta conociendo 
a jonas de las 
canacidades de este 
brillante precesador de 
texto. 


De la misma forma, cuando se 
va a teclear una serie de palabras, 
con signos en medio, pero sin 
espacio, LOCOSCRIPT tratara 
todas ellas como si fueran una 


sola, y o bien las cambiara de 
linea todas o bien insertara un 
guion en un sitio donde vaya 
mejor un espacio. Para estos 
casos es preferible elegir separar 
todas las palabras por espacios 
blancos. De esta manera al 
justificar, si se encuentra un 
espacio en bianco en la ultima 
columna de una linea, pone el 
resto de la palabra en la siguiente. 
Y si luego al reformatear cabe 
toda la palabra junta, el 
programa suprime el espacio. 

SANGRADO 

En determinados documentos, 
es necesario que una parte del 
documento tenga un margen 
izquierdo mas pequeno que el del 
resto del documento. Esto se 
podria lograr insertando un 
formato distinto. Pero si solo se 
desea reducior el margen en un 
parrafo, es mas rapido hacerlo de 
otro modo. 

Esto se realiza creando un 
tabulador de sangrado, o 
tabulador frances. Se realiza 
llevando el cursor a la columna 
donde se desea el margen, y 
pulsando las teclas ALT y TAB. 
Desde ese momento, y hasta que 
se teclee intro, esto es cuando se 
teclee punto y aparte, el programa 
justifica segun el nuevo margen. 
Una vez pulsado INTRO el 
tabulador se convierte en un 
tabulador normal, perdiendo ese 
efecto. 
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I orque pretendemos que AMSTRAD personal sea 
tambien su revista, tenemos una section en la que son 
publicados los mejores programas originates recibidos en 
nuestra redaction. Ustedes serdn los encargados de rea- 
lizar estas paginas, en las que podrdn aportar ideas y 
programas interesantes para otros lectores. 

Las condiciones son sencillasr 

- Los programas se enviaran a AMSTRAD personal 
en una cinta de cassette o disco, sin protection en el soft¬ 
ware, de forma que sea posible obenter un listado de los 
mismos. 

- Cada programa debe ir acompanado de un texto 
explicativo en el cual se induyan: 

- Description general del programa. 

- Jobia de subrutinas y variables utilizodas, explicon- 
do claramente la funtion de cada una de ellas. 

- Instruccbnes de manejo. 

- Todos estos datos deberan ir escritos a maquina o 


con letra dara para mayor comprension del programa. 

- No se admitiran programas que contengan carac- 
teres de control, debido a que no son correctamente in- 
terpretados por las impresoras. 

- En una sod cinta puede introducirse mas de un pro¬ 
grama. 

- Una vez publicado, AMSTRAD personal abo- 
nara al autordel programa de 15.000 a 100.000 pe¬ 
setas, en concepto de derechos de autor. 

- Los autores de los programas seleccionados para 
su publication, recibirdn una comunicacion escrila de ello 
en un plazo no superior a tres meses a partir de la fecha 
en que su programa llegue a nuestra redaction. 

- AMSTRAD personal se reserva el derecho de 
publication o no del programa. 

- Todos los programas recibidos quedaran en poder 
de AMSTRAD personal. 

- Los programas sospechosos de plagio serdn elimi- 
nados inmediatamente. 


iENVIENOS 
SU PROGRAMA! 

Adjuntando los siguientes datos: 

Nombre y apellidos, 
direccion y telefono 

Indicondo claramente en el sobre: 

REF. SERIE ORO 
AMSTRAD personal 

a HOBBY PRESS, S. A. 
Ctra. de Irun, km 12,400 
















Asi sera nuestra cabecera, a partir del proximo mes. 

AMSTRAD SEMANAL se convierte en AMSTRAD PERSONAL 
MENSUAL, con muchas mas paginas, para que en cada numero 
encuentre mas mformacion sobre su modelo de ordenador, 

PIDA AMSTRAD PERSONAL 

Con la calidad de siempre... 
y mucho mas. 

No se lo pierda. 
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